

LOSSE NUMMERS ƒ 7,95/Bfr 160 


INFO 



HET NEDERLANDSTALIGE COMPUTERBLAD VOOR MSX-BEZITTERS Jaargang 5, No. 3, sept./okt. 1989 


Listings 




Vaste rubrieken 
Software 
Listings 

Understatement 
MSX-Dos 2.20 
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MSX-MS DOS 
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MSX2 TITELS: 

128K Ram + 128KvRam benodigd 
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TT RACER 
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Inhoud van dit nummer 


The Games Collection II 5 SCSI Harddisk interface 23 


Na de verschijning van de Games Col¬ 
lection, die we in het vorige nummer van 
MSX Info bespraken, komt binnenkort 
de tweede collectie uit, met program¬ 
ma’s van Nederlandse programmeurs. 
Met een aantal foto’s geven we een 
voorproefje. 

Lastige grapjes 6 

In de vorige Print Out stond een grapje 
in de listings Maze en Toren. Hier volgt 
de uitleg. 

512 KB Memory Mappers 7 

We testten drie memory mappers, van 
Sony, HSH en HSP. 

Opslagmethode 10 

Een aantal tips om zelf geschreven pro¬ 
gramma’s korter te maken. Verder een 
grafisch grapje waar een creatieve pro¬ 
grammeur het nodige mee kan uithalen. 

MSX-1 Screendump 12 

Met dit programma is het mogelijk een 
schermafdruk te maken van elk willekeu- 
ring scherm onder MSX-1 Basic. 

MSX-DOS 2.20 18 

Het is merkwaardig gelopen met MSX- 
DOS 2.20. Nu zijn er twee verschillende 
versies bij twee leveranciers te krijgen. 
Een vergelijking. 

Spellen 20 

Uit een stapel nieuwe spellen kozen we 
er drie: The Cockpit, F1 Spirit en The 
Greatest Driver. 


Foto cover: 
King Kong, Konami 


Met de komst van de SCSI harddisk in¬ 
terface is er een wereld van nieuwe toe¬ 
passingen voor de MSX opgengegaan. 

Line, B super 52 

Een utility voor de MSX om op een han¬ 
dige wijze vierkanten in iedere richting 
op een grafisch scherm te kunnen teke¬ 
nen. 

ProCAD V 4.55 54 

ProCAD is een ontwerp- en tekenpro¬ 
gramma, dat ondanks dat het in Basic is 
geprogrammeerd, krachtige eigenschap¬ 
pen bezit. Met de handleiding, listing en 
veel geduld krijgt u een mooi program¬ 
ma. 

MSX-Dos 2.20 ontsluierd 58 

Het afgelopen jaar hebben we ons bezig 
gehouden met MSX Dos. In de nieuwe 
serie gaan we in op versie 2.20. 

MSX 2+ 61 

Na veel poeha hoopte iedereen dat de 
nieuwe MSX 2+ snel verkrijgbaar zou 
zijn. Dat is echter niet het geval. Wat 
maakt de 2+ zo bijzonder, en kunnen 
die eigenschappen ook in een gewone 
MSX-2 ingebouwd worden? 

Understatement 63 

In dit deel wordt het Print statement be¬ 
handeld. 

Kunstmatige intelligentie (5) 66 

We pakken de draad weer op over de 
verschillende manieren van denken. 

Rubrieken 

Gebruikersgroepen 6 

Strip 65 

Print Out 26 


Redactioneel 

Hoewel het moeilijk blijft om de juiste ontwikkelingen op MSX gebied te peilen, zijn 
we toch licht optimistich. Van verschillende kanten worden pogingen gedaan om 
nieuwe machines en randapparatuur uit Japan naar Europa te verschepen en dit 
kan alleen maar een signaal voor de Japanners zijn dat ze de Europese markt seri¬ 
eus moeten nemen. Wie weet belandt op de redactionele bureaus nog eens een 
MSX 2+. 

In ieder geval is het wel leuk dat er nieuwe software op de Nederlandse markt blijft 
komen, niet alleen spellen maar ook serieuze programma’s. Met het programmeren 
bijvoorbeeld zit het wel goed hier te lande, gezien de wedstrijd die Eurosoft heeft uit¬ 
geschreven. De winnaars zien hun programma’s terug in The Games Collection II. 
Ook de redactie krijgt steeds meer goede programma’s ingezonden die we na plaat¬ 
sing ook goed belonen. Dus heeft u nog iets interessants op de plank liggen, stuur 
het dan op. Zo houden we leven in de MSX brouwerij. 
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Salasan Kwaliteitssoftware 

Nieuw voor MSX ! 

33 hits voor MSX 1/ MSX II 
op cassette / disk / CD-ROM 


747 400 B Flightsimulator 

Astroblaster 

Bankbuster 

Blow-up 

Boom 

Booty 

Breaker-breaker 

Burgerkill 

Chessplayer MSX I 
Chessplayer MSX II 
Chopper One 
Discovery 
Eagle Control 
Frog 

Guttblaster 
Flaunted Flouse 
Jet Fighter 
Kong 

Missile Command 
Penguin 

Pharao’s Revenge 
Pinball Blaster 
Playhouse Strippoker 
Quebert 


Red Dawn 
Sar 

Scentipede 
Space Resque 
Starbite 
Starbuggy 
Time Rider 
Vortex Raider 
Winterhawk 

Cassette ƒ 79,- 
Disk ƒ 89,- 
CD-ROM ƒ 99,- 
(eenvoudig met uw 
MSXcoputer te gebruiken 
m.b.v. de 

cassetterecorderkabel en 
een CD-speler) 


Prijs inclusief BTW en verzendkosten. Te bestellen door 
overmaking van het bedrag op giro 5641219 t.n.v. SALASAN 
Amsterdam o.v.v. artikel 

Rembourszendingen zijn mogelijk, hiervoor brengen we echter 
ƒ 5,00 in rekening. SALASAN Postbus 5570 1007 AN Amsterdam 
Voor inlichtingen, bestellingen en gratis catalogus: 020-203219 




In het vorige nummer van MSX Info plaatsten we een recensie van The Games Collection. Wij 
vonden deze compilatie erg geslaagd en gezien de prijs krijg je veel waar voor je geld. Een nieuwtje 
was toen dat de Games Collection niet alleen op cassette en diskette verscheen, maar ook op 
compact disc. 

The Games Collection II 


Gezien onze reactie op de vorige collectie zijn we dan ook erg be¬ 
nieuwd naar de nieuwe serie. Vooral omdat dit, volgens de samen¬ 
steller Eurosoft, een beeld moet geven van de programmeer capaci¬ 
teiten van Nederlandse MSX’ers. 



Moving Squares, van R. Knubben 



Vectron, door C. Cremers 



The Black Spider, van E. Wagdena 


Wedstrijd 

In het begin van deze zomer organi¬ 
seerden Eurosoft en MSX/MS-DOS 
Computer Magazine namelijk een 
programmeerwedstrijd voor MSX pro¬ 
grammeurs. De programma’s van de 
winnnaars zouden als de Games Col¬ 
lection II verzameld en uitgebracht 
worden. Daarnaast vielen andere prij- 



Defcon, door R. Hensen 


zen te verdelen. Het is wel heel op¬ 
merkelijk dat de eerste prijs in de 
wacht werd gesleept door een pro¬ 


grammeur van 14 jaar! Volgens de 
jury programmeert deze jongen de 
sterren van de hemel. 

Helaas konden we voorlopig slechts 
één spel bekijken omdat men bij Eu¬ 
rosoft nog druk bezig is met de pro- 
duktie, het maken van de handleidin¬ 
gen, etc. Wel kregen we een aantal 
fraaie dia’s, die in ieder geval veel 
beloven. In het volgende nummer van 
MSX Info zullen we alle spellen uit de 
collectie uitgebreid bekijken. 



Dr. Archie, van l N. Derks 


7 diskettes 

The Games Collection II zal bestaan 
uit maar liefst 2 Megabyte aan pro¬ 
grammatuur, samengevoegd op ze¬ 
ven diskettes en zal ƒ 89,- kosten. De 
collectie zal elf MSX 64K en negen 
MSX 128K Ram/128K Vram program¬ 
ma’s bevatten en wordt tegelijkertijd 
uitgebracht in Nederland, Spanje, 
Frankrijk en Scandinavië. 

The Games Collection zal vanaf eind 
september te verkrijgen zijn. 


Inl: Eurosoft, 071 - 225510 
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Nadat in het vorige MSX Info nummer in de Print Out rubriek twee spelletjes van DubbleGee 
Software uit Hilversum, namelijk ‘Maze’ en Toren’, waren gepubliceerd, heeft de service-telefoon 
op het kantoor van MSX Info op sommige momenten roodgloeiend gestaan. 

Lastige grapjes, listige grollen 

Reprise Maze en Toren 


Wat was het geval? In beide listings kwamen de twee volgende regels 
voor: 


80 MC=#B00 0-#B595:JUMP 

START (of een ander 
adres) 

90 START: REM Niet runnen 
zonder m.code! 

...en als iemand het programma pro¬ 
beerde te runnen, kwam de computer 
uiteraard met de melding, dat er een 
fout in regel 80 zat. Ja logisch, ten 
eerste is # helemaal niks in Basic, en 
ten tweede bestaat het commando 
JUMP of START ook niet. Maar iede¬ 
reen, die de moeite had genomen om 
één of beide programma’s in te klop¬ 
pen en die met bovenstaand pro¬ 
bleem kwam te zitten, kon over de 
telefoon uiterst gemakkelijk worden 
geholpen: men hoefde die regels 
slechts te verwijderen en alles liep 
verder als een treintje. 

Maar hoe kwamen die regels nou in 
het programma? Awel, dat zullen we 
u vertellen, wellicht ter lering ende 
vermaak. Toen de schrijver/program¬ 
meur en z’n collega op dees’ laatste, 
enigzins op een futuristische cockpit 


lijkende zolder, de bovengenoemde 
listings voor publicatie gereed maak¬ 
ten, konden ze het niet laten om een 
superklein testje in te bouwen om te 
zien hoe slim de listing-redacteur 
was. Aangezien ze in de program¬ 
ma’s op regel 80 een REM hadden 
staan met als “reminder” daarachter 
het geheugengebied waarin de ma- 
chinecode stond, besloten ze iets met 
die regel te doen: het programma zou 
’m tijdens een “run” toch overslaan. 
Dus regel 80 werd 

80 '!MC=#B000 enz., 

maar op de plaats van het uitroepte¬ 
ken pookten ze later een backspace- 
waarde in, waardoor tijdens een lis- 
ting op het scherm (en zoals later 
bleek, ook op papier) zowel het uit¬ 
roepteken als het rem-tekentje weg¬ 
viel. Het programma liep dus keurig, 
maar als je de listing las snapte je niet 
hoe dat dan kon... Grapje, nietwaar? 
Helaas ging de listing-redacteur er¬ 
van uit dat deze heren uitsluitend vak¬ 
werk afleveren, wat op zichzelf na¬ 


tuurlijk waar is, daar niet van, maar 
dat de listing als zodanig dan ook wel 
zou kloppen. En dat was dus niet he¬ 
lemaal het geval, met alle gevolgen 
van dien. Afijn, we hebben er allemaal 
weer wat van geleerd, en wellicht kunt 
u er in uw eigen programma’s de no¬ 
dige grollen mee uithalen (Om de 
drie, vier regels een rem-regel met 
een aantal onzin-opdrachten; of, om 
het nog ingewikkelder te maken, met 
echte opdrachten: ze worden toch 
niet uitgevoerd!). Onthoud echter wel 
dat elke verandering in de regel de 
backspace-poke weer teniet doet. 
Renum is wel mogelijk, en regels toe- 
of afvoeren levert ook geen proble¬ 
men. Het enige probleempje is het 
uitvinden op welk adres het uitroepte¬ 
ken staat, maar met een debugger is 
dat zo gepiept. Veel succes! 

(Overigens verwacht ik wel een te- 
genreaktie van de listing-redacteur...) 

DubbleGee 


MSX-Gebruikersgroepen 


Hoogeveen 

Op 28 oktober vindt in het cultureel 
centrum ‘De Tamboer’, Hoofdstraat 
17 in Hoogeveen, de Derde Hoog- 
eveense Computermanifestatie 
plaats. Behalve voorlichting over alle 
bekende computersystemen biedt het 
ook een goede gelegenheid om erva¬ 
ringen uit te wisselen. Ook is er een 
spelcompetitie. De openingstijd is van 
12.30 - 16.30 uur. Inl: 05280 - 69366 


MSX Computerdag Zantvoort 

Op 23 september (hopelijk is dit blad 
op tijd uit) is er de MSX Computerdag 
in Zandvoort. Plaats van handeling is 
het Gemeenschapshuis, Louis Da- 
vidsstraat 17 van 10.00 tot 17.00. Inl: 


02507- 17966 

Nijmegen 

De MSX Gebruikersgroep Nijmegen 
gonst nog altijd van de activiteiten. 
Om een zo goed en leuk mogelijk ge¬ 
bruik van de MSX te kunnen maken 
kunnen geïnteresseerden terecht op 
de club bijeenkomsten. Vanaf de der¬ 
de zaterdag in oktober organiseert de 
groep ook weer elke derde zaterdag 
een ruilbeurs. Inl: 080 
774939/228308/774485 

MSX West Brabant 

De MSX Gebruikersgroep West Bra¬ 
bant houdt haar éerstvolgende bij¬ 


eenkomsten op 26 september en 24 
oktober. Inl: 01652 - 16685 


MSX Antwerpen 

Ook Antwerpen MSX’t behoorlijk. De 
club aldaar heeft 70 leden en elke 
vrijdag zijn er bijeenkomsten. Het 
adres is St. Bernardsesteensweg 
770, B 2710 Antwerpen. Op 20 okto¬ 
ber wordt er een Open Deurdag geor¬ 
ganiseerd. Inl: 03/828.17.61 


ACG 

De Algemene Computer Groep As¬ 
sen organiseert op 14 oktober een 
open dag; 10.00 tot 16.00 uur. Plaats: 
Markenstraat 12 te Assen. 
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Al bijna zolang als er MSX-2 computers zijn, bestaat bij de gebruiker de behoefte om de computer 
van meer Ram te voorzien. In het verleden gebeurde dit vooral intern. Een interne uitbreiding geeft 
echter wel wat risico’s, vandaar dat toch vrij veel gebruikers willen uitwijken naar een externe 
memory mapper. 

512 KB Memory Mappers 

Op dit moment zijn er verschillende fabrikanten die beweren een 
MSX compatible memory mapper te verkopen. Jammer genoeg zijn 
er blijkbaar verschillende interpretaties van het begrip compatible 
mogelijk. Er zit dus nogal wat kaf tussen het koren en daarom is het, 
zeker gezien de hoge aanschafprijs, voor de consument belangrijk 
om goed voorgelicht te zijn voordat hij tot aanschaf overgaat. 



Meerdere smaken verkrijgbaar 

De externe memory mapper van 512 
KB is verkrijgbaar bij diverse leveran¬ 
ciers en clubs. De door de clubs uit¬ 
gebrachte produkten zijn, voor zover 
we deze gezien hebben, gewogen en 
te licht bevonden. Het kan natuurlijk 
altijd zijn dat er wel een goede is van 
een MSX-club. Wij willen die dan 
graag bekijken. 

Deze test beperkt zich tot drie produk¬ 
ten van drie fabrikanten. De fabrikan¬ 
ten van 512 KB memory mappers zijn 
in volgorde van verschijnen: Sony, 
HSP en HSH. De door HSH uitge¬ 
brachte mapper is een zogenaamde 
China-copy van de Sony HBM-512. 
Een China-copy is een meestal goed¬ 
kopere uitvoering van een produkt in 
massaproduktie, gemaakt in het Ver¬ 
re Oosten en is een identieke kopie 
van het origineel. 

De test 

Gezien de herkomst van de HSH 
mapper beperken we ons in deze test 
tot de twee overige ontwerpen. In 
deze test zullen we een aantal ver¬ 
schillende zaken opnemen: 

° De snelheid van de gebruikte Ram- 
chips 

° Het gebruikte ontwerp 
0 Uitvoering en presentatie 
° De kwaliteit van de gebruikte com¬ 
ponenten 

° Het stroomverbruik 
0 De prijs 

De snelheid van de chips 

De snelheid van de gebruikte Ram- 
chips is van meer belang dan meestal 
wel gedacht wordt. Dit komt omdat 
lang niet alle gebruikers weten dat de 
Z80, zoals die in de MSX architectuur 
gebruikt wordt, 1 Waitstate per Ml 
heeft. Dit houdt in dat de Z80 bij elke 


lees- of schrijfactie naar het Ramge- 
heugen in de zogenaamde WAIT toe¬ 
stand komt totdat de informatie via de 
databus de Z80 bereikt heeft. Als we 
nu een traag geheugen hebben, dan 
duurt het langer voordat deze infor¬ 
matie de Z80 bereikt. Het resultaat is 
dan een trage uitvoering van het pro¬ 
gramma. Ook is het van belang als 
men de MSX computer wil opvoeren 
naar 6 Megahertz. In dit geval moeten 
de Ram-chips dit wel ondersteunen 
met een korte toegangstijd, omdat an¬ 
ders het effect verloren gaat. 

Voor een 6 Megahertz MSX computer 
zijn Ram-chips aan te raden met een 
toegangstijd kleiner dan 120 nanose¬ 
conden, beter is echter een waarde 
die rond de 100 ligt. 

In de memory mapper van Sony zitten 
Ram-chips met een toegangstijd van 
120 nanoseconden, in de mapper van 
HSH zitten voor zover ons bekend 
chips van 150 nanoseconden en in 
het HSP ontwerp zitten Ram-chips 
van 100 nanoseconden. In dit laatste 
ontwerp zitten de Ram-chips niet 
vastgesoldeerd, maar zijn bevestigd 


op voetjes, zodat een eventuele de¬ 
fecte chip of snellere chips gemakke¬ 
lijk vervangen of geplaatst kunnen 
worden. 


Het gebruikte ontwerp 

Het eindresultaat van het werken met 
een externe memory mapper valt of 
staat bij het ontwerp. Vandaar ook dat 
we hier extra aandacht aan willen be¬ 
steden. Het ontwerp van Sony is, hoe 
flauw dat ook mag klinken voor de 
bezitters van een dergelijke cartridge, 
nooit bedoeld als Ram-expansie voor 
MSX computers in het algemeen. Het 
is gemaakt als Ram-disk voor de pro¬ 
fessionele serie MSX produkten van 
Sony, die overigens nog steeds door 
Sony Industrial geleverd worden in 
Nederland, en dan met name voor de 
HB-G900. Deze informatie hebben 
we ontleend aan de service manual 
van Sony betreffende de 512 KB me¬ 
mory mapper. 

Dit houdt in dat ook de memory map¬ 
per van HSH, die bijna identiek is aan 
die van Sony, niet bedoeld is voor 
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SPARROW SOFTzet MSX WEER OP DE RAILS! 


A/a c/at eind vorig jaar net bericht kwam, dat er dooi 
PH/L/PS gestopt zou worden met de produkt/e van A/SA 
computers, werd door ve/en net MSX systeem dooc 
verk/aard. 

A/u ö/jna een jaar /ater, kunnen we met reent stei/en dai 
de pessimisten ongeiijk genad nebben. 

Want /aten we eeriijk zijn de MSX biaden en c/ubs 
ftoreren ais nooit tevoren f 

Wij nadden deze uitkomst eigemiijk wet verwacftt. wan, 
wie onze stand op de HCC dagen beeft bezocht, hee/i 
zien ongetwijfeid staan te vergapen aan bet MSX2PLUS 
gewe/d/Om bet MSX systeem op de woe/ige computer- 
markt te Zaten over/even was er echter meer nodig dan 
MSX2PLUS. Zo b/eek ai gauw dat men in JAPAAi nee, 
anders over MSX dacht dan bier in EUROPA. Het S/A 
concept wat men in JAPAAi hanteert, is bier vo/tedic, 
achterhaa/d. 

Zo komen we dan meteen bij bet eerste probieem, mee/ 
geheugen voor de MSX De door ons ontwikketde 512i<t 
externe memory mappen vo/doet voitedig aan aiie 
huidige en toekomstige MSX eisen, van MSX-DOS2 to, 
MEGAROMS. En is bovendien voorzien van goudcontak- 
ten, snetfe AiEC ram-chips van lOOns die gemakkei/jA 
SMhz kunnen trekken f 

Het tweede MSX probieem. was bet ouderwetse operat- 
ing system. Door de komst van MSX-DOS2 zijn we de 
PC ze/fs een stukje voorbij gegaan. Het eenvoudige 
HELP-concept, ops/aan van commandorege/s, 4ML 
geheugen kunnen aans turen, en bet fiie en forma, 
conpatibei zijn met MS-DOS, en niet te vergeten, bei 
werken met subdirectories, maken dat uw MSX2 wee/ 
be/emaai bij de tijd is. Bovendien is de door ons 
gezeverde versie niet a/ieen sne/ier dan de JAPAAiSE, ze 
wordt ook nog eens geieverd met een Nederiandsta/ige 
band/eiding. 

Probieem no 3 was bet niet kunnen gebruiken van 


HARDDiSKS voor ops/ag van grote boeveeibeden 
gegevens. Met de komst van de nieuwe SCSi-HC 
interface, s/aat de MSX weer een nieuwe weg in. Wam 
een SCSI interface kan veei meer dan aiieen maar een 
harddisk aansturen, bet is op dit moment de sneiste 
interface die er op dit moment te krijgen is, maar iiefs\ 
1Mb per seconde! 

Het vierde probieem was, bet gebrek aan s/oten op da 
MSX, twee is toch echt te weinig, vandaar dat wij ooA 
een nieuwe siotexpander uitbrengen, eentje met maa/ 
iiefst 5 stoten, vier voor gewoon stofgebruik, en da 
andere voor i/O gebruik. 

Ook brachten wij de eerste MSX2 assem bier uit, bet is 
de WB-ASS2/ Bovendien is bet vanaf eind septembei 
mogefijk om uw MSX2 naar MSX2PLUS om te /aten 
bouwen voor s/eebts f 450, -/ 

Terecht kunnen wij stei/en dat wij de MSX weer op da 
raiis gezet hebben, dit ondanks de controverse en 
verba/en die over ons de ronde doen. Wij hebben biei 
niet de behoefte om ons tot een dergefijk nivo ta 
verzagen, wei hebben wij gemeend u ais consument in 
bet zonnetje te zetten met een aantat fantastische 
steraanbiedingen. Per s/ot van rekening gaat de Hef da 
van de consument door de portemonnaie. 

* 

Ais u geïnteresseerd bent in onze MSX steraanbie¬ 
dingen, zoa/s Hard Disks, SCSi interface, MSXDOS2, 
WB-ASS2 enz, dan kunt u ons be/ien op 05668-408 oj 
u schrijft ons een brief met bet verzoek om onze 
steraanbieding informatiefoider te mogen ontvangen. 
Het adres is: Sparrowsoft, Stripe 12A, 8493 LB 
Terberne 

Wij zu/ien uw aanvraag en beste/iing met de grootsi 
mogeiijke zorg omgeven, om ook van u een tevreden 
Sparrow Soft MSX k/ant te makenf 

Met vriendei/jke groet Dir. en Medewerkers. 


NIEUW VOOR MSX!H 
SCS/-hard disk interface 
MSX-s/otexpander (van i naar 5 s/oten) 
5i2Kb externe Memory Mapper 































gebruik anders dan Ram-disk op een 
HB-G900. 


HSP ontwerp 

Het engineering bedrijf HSP was al 
geruime tijd bezig met de problema¬ 
tiek van de externe memory mapper 
en het had eind vorig jaar al een me¬ 
mory mapper van 256 KB ontwikkeld. 
De firma Sparrow Soft werd hierover 
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RAM verdeling van de Sony HBM 512 


benaderd en had wel interesse in het 
uitbrengen van een externe memory 
mapper. De eis werd echter gesteld 
dat deze wel 512 KB groot moest zijn. 
Nadat men tot overeenstemming was 
gekomen is HSP aan het werk geto¬ 
gen, en binnen vrij korte tijd kon HSP 
het eerste prototype van de 512 KB 
memory mapper tonen. 

Tijdens de ontwikkeling, waarbij de 
Sony ook bestudeerd werd, bleek dat 
het Sony ontwerp bestond uit een 
mapper met twee banken van elk 256 
KB. Bovendien bleek dat aan de sig¬ 
nalen die officieel gebruikt werden 
voor de refreshment nu andere func¬ 
ties toegekend waren. Hierdoor kon 
het gebeuren dat bij veelvuldig bank- 
switching de refreshment niet meer 
goed uitgevoerd werd, met als gevolg 
amnesia. Het echte probleem ligt ech¬ 
ter verscholen in de twee banken van 
256 KB. Want wat is er nu aan de 
hand? 

Als een MSX computer opstart, initi- 
aliseert hij eerst het geheugen en zet 
daarna pagina 3, waarin zich de sys- 
teemvariabelen bevinden, in een seg¬ 
ment van 16 KB in het. geheugen. Als 
alles normaal verloopt hoort dat ook 
inderdaad zo te gaan, maar bij de 512 
KB memory mapper van Sony, (en 
dus ook die van HSH) kan het volgen¬ 
de gebeuren: de computer initialiseert 
eerst een bank van 256 KB en zet 


pagina 3 in een segment van deze 
256 KB. Maar dan gebeurt er iets 
flauws: de computer schakelt nu tus¬ 
sen de twee banken om ook de ande¬ 
re bankte kunnen initialiseren. Op dat 
moment slaat de computer vast om¬ 
dat pagina 3, waarin zich de systeem- 
variabelen bevinden, niet meer be¬ 
reikbaar is voor de Z80 processor. 
Hoe het een en ander functioneert is 
te zien in de figuren 1,2 en 3. 

Het HSP ontwerp is wel een mapper 
van 512 KB, die bovendien met een 
kleine aanpassing en een hulpprintje 
ook uit te breiden is tot 1 megabyte. 


Megarom disketteversies 

Een van de redenen dat meer geheu¬ 
gen zo populair is, is het feit dat men 
hierop disketteversies van Megaroms 
kan laten draaien. Het is dan ook 
daarmee dat we de mappers getest 
hebben. Nu leverden de Sony HBM- 
512 en de HSH mapper op een aantal 
machines al meteen opstartproble¬ 
men op, dus weken we uit naar com¬ 
puters die deze problemen niet had¬ 
den. Let wel, het gaat hier niet om een 
bepaald merk of type, binnen elk merk 
en type zijn grote serieverschillen. 
Ook op de computers zonder opstart¬ 
problemen met de Sony of HSH map¬ 
pers, bleek dat de disketteversies van 
Megaroms wel draaiden op de HSP 
mapper, maar niet op de Sony en 
HSH mappers. Ook verloopt het ge¬ 
bruik van het nieuwe MSX-DOS 2.20 
niet vlekkeloos met de HBM-512 en 
de HSH mapper. 


Uitvoering en presentatie 

Presentatie is uiteraard van minder 
belang voor het functioneren dan de 
uitvoering van het produkt, maar het 
oog wil ook wat. Zonder twijfel ziet de 
Sony er mooi uit, maar zoiets kun je 
ook verwachten van een dergelijke fir¬ 
ma. De HSP presentatie ziet er min¬ 
der opwindend uit. Over de uitvoering 
kunnen we ook vrij kort zijn: zowel 
Sony, HSP als HSH hebben een 
printplaat met nagenoeg hetzelfde 
formaat, van zowel Sony als HSP, zijn 
de mappers voorzien van goudcon- 
tacten, dit om betere geleiding en dus 
minder fouten mogelijk te maken. 


Componenten 

Componenten voor computers en 
aanverwante apparatuur is in allerlei 
soorten en maten voor allerlei ver¬ 
schillende toepassingen te verkrijgen; 
wat de kwaliteit en duurzaamheid be¬ 
treft zijn er ook in computerland eer¬ 
ste en tweede keus produkten. Be¬ 
rucht zijn met name de Oostblok- 
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chips, gelukkig zijn we deze compo¬ 
nenten op geen van de drie mappers 
tegengekomen. Sony gebruikt voor 
zijn mapper Toshiba-chips en HSP 
NEC-chips. Omdat alle ram-chips te¬ 
genwoordig C-MOS types zijn, be¬ 
staat er bij dit soort chips kans dat ze 
beschadigd worden door statische la¬ 
dingen. Officieel horen mensen die dit 
soort C-MOS chips verwerken dan 
ook geaard te zijn aan het net. De 
NEC-chips kunnen wat dat aangaat 
iets beter tegen een stootje. 

Stroomverbruik 

Bij het MSX systeem mag men per 
slot maximaal 300 miliampere ver¬ 
bruiken op 5 volt. Dat houdt dus in dat 
een memory mapper dan dus ook niet 
meer mag verbruiken om problemen 
met de voeding te voorkomen. In alle 
drie de ontwerpen is een stroombe- 
grenzings-schakeling opgenomen, en 
met name op dit punt gaan de door 
ons bekeken mappers vanuit het 
clubgebeuren behoorlijk de mist in. 
Zowel in het Sony als in het HSP ont¬ 
werp zijn speciale low-power LSI- 
chips gebruikt. Deze chips zijn zo 
nieuw dat deze nog niet in Europa 
vervaardigd kunnen worden. 

De prijs 

Een van de belangrijke zaken bij dit 
soort aangelegenheden is altijd de 
vraag ‘wat kost het?’ Voor zover ons 
bekend is de mapper van Sony nog 
steeds te koop is voor een bedrag van 
rond de ƒ 700,-. De prijs van de HSH 
mapper is enigszins onduidelijk maar 
zal ongeveer uitkomen op ƒ 575,-. De 
door Sparrow Soft te leveren HSP 
memory mapper heeft als vaste prijs 
ƒ 550,-, maar wordt nu ook in combi¬ 
natie met een ander programma voor 
die prijs aangeboden. 

Ook wordt de HSP mapper als bouw¬ 
pakket aangeboden. De prijs van dit 
bouwpakket zonder de Ram-chips 
bedraagt ƒ 169,90, de ram-chips kun¬ 
nen per twee of vier besteld worden a 
ƒ 75,- per stuk. 

A. van Norden 

Inl: 05668 - 453 















































































Professor, vraagt men mij wel eens, “is het mogelijk om een programma korter te maken?” 

Opslagmethode 

Het verkorten van programma’s 


Wel geachte luisteraars, als in een programma gebruik wordt ge¬ 
maakt van een uit twee verschillende karakters opgebouwd speel¬ 
veld, bijvoorbeeld een doolhof dat uit spaties en muur-karakters 
(een zwart hokje) is opgebouwd, dan is het inderdaad verstandig te 
overwegen of het niet beter is de data ervan te ‘packen’, dat wil 
zeggen verkorten. 



Maar dat loont uitsluitend de moeite, 
als het nut heeft, nietwaar? Dus als u 
van plan bent om uw programma als 
listing af te staan aan een toonaange¬ 
vend blad (zoals dit), dan is het zeker 
praktisch: de lezers hoeven veel min¬ 
der in te toetsen, want het programma 
bouwt het speelveld in het geheugen 
of op het scherm op. Schrijft u echter 
een programma dat toch nooit over- 
getyped hoeft te worden, dan maakt 
het vanzelfsprekend geen fluitje uit. 
Toch raad ik u aan aandachtig te luis¬ 
teren, wellicht kunt u er op een andere 
manier uw voordeel mee doen. 

Een voorbeeld. Stel: Uw spel speelt 
zich op screen 1 af. Dan zijn er dus 
maximaal 32 karakters mogelijk. Stel: 
de bovenste rand van dat veld is 
dicht, en bestaat dus uit 32 muur-ka¬ 
rakters, laten we zeggen chr$ 219 
(zwarte hokjes). Laten we ook aanne¬ 
men, dat het speelveld-opbouw-pro- 


gramma-onderdeel (wat een woord) 
op regel 1000 begint. Er zou dus kun¬ 
nen staan: 

1000 CLS 

1010 PRINT STRINGS(32,219); 

maar er zou ook kunnen staan: 

1000 CLS 

1010 PRINT chr$(219) 

chr$ (219) chr$(219) 

...enz., 

of 

1000 CLS 

1010 PRINT "(hier staan 32 
zwarte hokjes)" 

Dat laatste kost minder tijd tijdens 
printen, maar het is wel meer type¬ 
werk. Nou ja, hier doet het eigenlijk 
nog niet ter zake welke methode 
wordt gebruikt. Het probleem ontstaat 
bij de volgende regels, die niet meer 
uit 32 dezelfde karakters bestaan 
maar uit onregelmatige opeenvolgin¬ 
gen. In dat geval zou het programma 
als volgt verder kunnen gaan: 

1020 PRINT"....enz. 

of in het andere geval, en dat is lasti¬ 
ger uit te zoeken en over te typen: 


1020 PRINT CHR$(219) 

STRINGS(4,".") 

CHR$(219) enz., enz. 

(Ik ga dat allemaal niet uittypen, u 
begrijpt ongetwijfeld wat ik bedoel. En 
als dat niet het geval is, heeft het ook 
geen nut). 

Een dergelijke reeks van 32 karakters 
kan echter ook opgedeeld worden in 
bijvoorbeeld 4 maal 8 opeenvolgende 
tekens, waarbij die tekens door nullen 
of enen worden voorgesteld. In dat 
geval zou de tweede regel ook kun¬ 
nen worden genoteerd als in figuur 1, 
en dat valt weer te noteren als (hex.) 
DATA 83, 0A, 29 en 41, wat natuurlijk 
veel minder typewerk is. Het enige is 
dat er een programmaatje bij moet, 
dat deze data weer in printklare brok¬ 
ken ombouwt, maar dat vormt niet 
zo’n probleem, zie het eind van dit 
artikel. 

Dus beste toehoorder, bevat uw pro¬ 
gramma een dergelijk speelveld? Kijk 
dan hoe breed het is, en hak het in 
gelijke stukken (uiteraard hoeven dat 
geen reeksen van 8 te zijn, minder 
mag natuurlijk ook: een regel van 30 
karakters kan bijvoorbeeld in 5 stuk¬ 
jes van 6 worden opgesplitst, etc.). 
Deze stukjes zet u over in decimale of 
hexa-decimale getallen, en die no¬ 
teert u als data. Op deze wijze neemt 
een speelveld van bijvoorbeeld 20 bij 
40 karakters bij acht-deling slechts 20 
maal 5 getallen in, en geloof me, dat 
scheelt aanmerkelijk bij het intoetsen! 
(Overigens zijn in vorige uitgaves van 
dit magazine reeds meerdere pro¬ 
gramma’s gepubliceerd die van dit 
systeem gebruik maakten: “Maze” 
van DubbleGee Software uit Hilver¬ 
sum b.v. Slimme rakkers daar). 

“Maar professor” zult u misschien 
zeggen, “kunnen die data niet rechts- 


"10000101 

00001010 

originele regel 

00101001 01000001" 

binaire notitie 

83 

0A 

29 

41 

hexadecimaal 

131 

10 

41 

65 

decimaal 


Figuur 1. 
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treeks in een bepaald geheugenge- 
deelte worden gepoked? Dan nemen 
ze nog maar 1 byte per getal in!” 
Volkomen juist. En het is dan ook mo¬ 
gelijk om deze data als binaire gege¬ 
vens op een tape of disk op te slaan. 
Maar ze in een listing printen? Da’s 
andere koek: sommige getallen ge¬ 
ven bij het printen geen letter of cijfer, 
maar worden als besturings-signalen 
beschouwd. Die worden dus niet af¬ 
gedrukt maar wel uitgevoerd, wat bij 
het printen bijzonder aardige, maar 
volkomen onverwachte effecten kan 
opleveren. En aangezien ik hier over 
programma’s spreek die voor publica¬ 
tie bedoeld zijn, heb ik het liever over 
data-regels zoals hierboven omschre¬ 
ven. 

“Goed professor,” zult u zeggen, 
“maar hoe krijg ik die data nu weer in 
de vorm waarin ze oorspronkelijk 
stond?” Welnu, in machinecode vormt 
dat geen probleem, want daar bestaat 
de opdracht BIT A,B, waarbij de A 
voor het bit staat en de B voor het 
register. Als het bit van dat byte geset 
is wordt de z-flag 1, anders is het 0, 
dit voor de gevorderden. Maar in Ba- 


sic levert het een probleempje op: 
daar bestaat een dergelijke controle- 
opdracht niet. Gaat u nu niet bij de 
pakken neerzitten, we vinden er wel 
wat op. Wat u bijvoorbeeld kunt doen, 
beste kijkers, is de binaire waarde 
van de betreffende data in een string 
opslaan, en vervolgens die string hok¬ 
je voor hokje op een 1 of een 0 chec¬ 
ken. Als er een 1 staat, printen we een 
hokje, anders een spatie. Die string 
moet dan natuurlijk wel net zo lang 
zijn als het aantal karakters van 1 
stukje, als u me nog volgen kunt. Dus 
als u uw speelveld in stukjes van 8 
heeft opgedeeld is de binaire string 
ook 8 karakters lang, maar in het ge¬ 
val van opdeling in 5, dient de string 
ook 5 lang te zijn. 

Uiteraard zijn er verschillende andere 
mogelijkheden: ik hoor hier en daar al 
mompelen over AND of XOR, maar 
dat moet u zelf maar eens uitzoeken. 

Welaan geachte luisteraars, ik hoop 
dat u iets wijzer bent geworden over 
de voordelen en de nadelen van het 
comprimeren, het ‘packen’ zogezegd, 
en dat u deze overwegingen bij uw 
programmeren ook ter harte wilt ne- 



men. Het kan uw collega’s bij het in¬ 
toetsen een hoop tijd schelen, en 
daarbij kost het gehele programma 
aanzienlijk minder geheugenruimte. 

“Dank u wel, professor,” zult u waar¬ 
schijnlijk willen zeggen, “voor uw hel¬ 
dere en duidelijke uitleg.” En als u dat 
doet, heeft u het begrepen en is het 
goed. En in het andere geval: ook 
niet. 

GG 


Televisietjes 



10 COLOR 15,1,1:SCREEN 2 
20 OPEN"GRP:"AS £1 
30 LINE(64,64)-(160, 160), 15,B 
40 DRAW"bm68,160d20r6u20" 

50 DRAW”bml51,160d20r6u20" 

60 PSET(20,20):PRINT£1, "Er is weer niks op t.v.!" 

70 K1=INT(RND(1)*12+2): K2=K1+1 

80 FOR L=72 TO 152 STEP 2 

90 LINE (L, 72) - (L, 152) , K2 

100 LINE (72, L) - (152, L) , Kl 

110 LINE(224-L,72)-(224-L,152),K2 

120 LINE(72,224-L)-(152,224-L),Kl 

130 LINE(72,L)-(L,72),K2 

140 LINE(72,224-L)-(L,152), Kl 

150 LINE(224-L,152)-(152,224-L),K2 

160 LINE(224-L,72)-(152,L),Kl 

170 NEXT L 

180 GOTO 70 


Een grafisch grapje van Guido van 
Gelder, waar een creatieve program- 
meur/euse toch nog het nodige mee 
uit kan halen. Probeer het ook eens 
op screen 3 uit, maar maak dan een 
step van 4 pixels per keer (in regel 


80), dan gaat het een stukje sneller. 
Probeer ook eens hoe het staat als je 
van sprites een logo ontwerpt, en dat 
eroverheen print...Wellicht een mooi 
intro-effectje? 

GG 
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Het onderstaande programma maakt het mogelijk een schermafdruk (screendump) te 
maken van elk willekeurig scherm onder MSX-1 Basic. In de volgende MSX Info 
zullen we een screendump programma plaatsen, dat geschikt is voor de MSX-2 

MSX-1 Screendump 

Voor MSX en Epson compatible printers 


0e onderstaande routine wordt in page 1 
*^van het RAM geïnstalleerd, dus er 
wordt niet één byte van het Basic werkge¬ 
heugen afgesnoept. 

De data voor de screendumproutine staat in het 
Basic programma MSX1 DUMP.BAS. Dit pro¬ 
gramma moet met het commando RUN uitge¬ 
voerd worden. Er volgen dan vanzelf instructies 
hoe verder gehandeld moet worden. 

Het eigenlijke machinetaalprogramma kan gela¬ 
den en geRUNd worden met de instructie: 
BLOAD-MSX1 DUMP.BIN",R 
Na deze instructie wordt de computer software¬ 
matig gereset en pas daarna is de screendum¬ 
proutine te gebruiken. Na eventuele volgende re- 
sets blijft de routine in het geheugen! Met de vol¬ 
gende toetscombinaties kan de routine worden 
geactiveerd: 

CTRL+O - Normale afdruk zonder sprites 
CTRL+P - Normale afdruk met sprites 
CTRL+V - Doublé strike afdruk zonder sprites 
CTRL+W - Doublé strike afdruk met sprites 

Screen 0 wordt op klein formaat afgedrukt zonder 
dat er rekening wordt gehouden met kleuren; 
deze zijn immers bij dit scherm meestal niet van 
belang. 

Screen 1 is eigenlijk net als screen 0 een tekst¬ 
scherm, maar wordt toch beschouwd als grafisch 
scherm, aangezien dit scherm vaak gebruikt 
wordt in Basic-spelletjes. 

Bij elk grafisch scherm wordt voor elke pixel een 
grijspatroon van 3x3 punten op papier gezet. 
Hoe dit grijspatroon eruit ziet, is afhankelijk van 
de kleur van de pixel. De screendump heeft on¬ 
geveer de grootte van een A4-vel. 

Tijdens het afdrukken kan de routine onderbroken 
worden door de ESC-toets even ingedrukt te hou¬ 
den tot er een BEEPje klinkt. 

De routine kan weer uitgeschakeld worden met 
de toetscombinatie CTRL+Q. Dit is bijvoorbeeld 
nodig als er een machinetaalprogramma geladen 
wordt dat gebruik maakt van page 1 van het 
RAM. 

Martin van der Graaft 



10 

REM MSX1DUMP 



20 

REM 



30 

REM Martin van der Graaff 



40 

REM Pieter Groenpad 15 



50 

REM 2 931 PB KRIMPEN AAN 

DE 

LEK 

60 

REM 01807-14641 



70 

REM 



80 

REM initialisatie 



90 

KEYOFF:CLS: SCREEN0 :WIDTH40 



100 

CLEAR200, &HC000 :DEFINTA-Z 



110 

P1$=CHR$(13)+CHR$(27)+"T12 

"+CHR$(27) 


+"S0576 M +CHR$(0) 



120 

P2$=CHR$(13)+CHR$(27)+"A”+CHR$(6)+CH 
R$ (27)+"L"+CHR$(64)+CHR$(2)+CHR$(0) 

130 

AD=&HC000 



140 

REM 



150 

REM ingave printer type 



160 

PRINT" INT"U kunt kiezen uit 

de 


volgende printerstan- 

daards:" 
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SALASAN 


nieuw van Konami ' 

voor MSX I en MSX II 

NEMESIS III ƒ 129, 


2 megabit ROM 
LSI 

custom 
sound 
chip 



Alle prijzen inclusief 
BTW en verzendkosten, 
Te bestellen door 


SALASAN ZOMERSTUNT 

Neos MKII MSX muis 
samen met 
Cheese II 

op disk (incl. demo disk) 
van ƒ 195.= voor ƒ 170.= 

De Neos MK II muis is tevens als joystick te gebruiken. 

Prijs inclusief BTW en verzendkosten. Te bestellen door overmaking van het bedrag 
op giro 5641219 t.n.v. SALASAN Amsterdam o.v.v. Cheese II + muis 
rembourszendingen zijn mogelijk, hiervoor brengen we echter ƒ 5,00 in rekening. 
SALASAN postbus 5570, 1007 AN Amsterdam 
Voor inlichtingen, bestellingen en gratis catalogus: 020.203219 





























Voor MSXI en II 

Torpedo Attack 

Flightsimulator van SubLOGIC 


Salasan 


ROMCartridge ƒ 79,= 


(prijs incl verzendkosten & BTW] 
Giro 5641219 

Postbus 5570, 1007 AN Amsterdam 
Tel.: 020-203219 



Nieuw voor MSX II!! 

NEOS Garakuta 

Een muisgestuurd grafisch pakket van de makers van "Cheese" 

Superbe grafische mogelijkheden op ROM cardridge. 


Binnenkort leverbaar prijs ƒ 109,— incl. BTW. verzendkosten. 


Voor informatie: 

Salasan 

Tel.: 020-203219 
Postbus 5570,1007 AN Amsterdam 


Abonneren kan ook door het direkt overmaken 
van j 25,- op giro 1585491 tnv Sala Commu¬ 
nications, Amsterdam 




























180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 


300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 


420 

430 

440 

450 

460 

470 

480 

490 

500 

510 


530 

540 


550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 


PRINT 

PRINT” 1] MSX" 

PRINT" 2] EPSON" 

PRINT 

PRINT"Maak uw keuze:"; 
I$=INPUT$(1) 

IFI$<>"1"ANDI$<>"2"THEN230 
PRINTI$ 

REM 

REM data in geheugen poken 
PRINT 


670 DATA CD,38,01,CB,OF,CB,OF,CB,OF, 
CB,045F 

680 DATA OF,E6,03,4F,06,00,21,Cl,FC, 
09,0334 

690 DATA B6,4F,23,23,23,23,7E,CB,OF, 
CB,03B4 

700 DATA OF,E6,0C,BI,21,00,40,CD, 24, 
00,0304 

710 DATA 21,36,CO,11,00,40,01,99,05, 
ED,02F4 

720 DATA BO,C3,00,00,41,42,10,40,00, 


PRINT "De data wordt nu in het ge¬ 
heugen gePOKEden weggeschreven on¬ 
der de naam:" 

PRINT 

PRINT" MSX1DÜMP.BIN" 

FORI=0TO152 

CG=0 

FORJ=0TO9 

READH$ 

POKEAD,VAL("&H"+H$) 

CG=CG+VAL("&H"+H$) 

AD=AD+1 

NEXTJ 

READCG$ 

IFVAL (" &H"+CG$) OCGTHENCLS : 

PRINT"Datafout in regel:"; PEEK 
(&HF6A3)+2 5 6 *PEEK(&HF6A4) :BEEP:END 
NEXTI 

IFI$="1"THENPR$=P1$ELSEPR$=P2$ 
FORI=OTOLEN(PR$)-1 

POKE&HC591+I,ASC(MID$(PR$,1+1,1)) 

NEXTI 

REM 

REM saven machinetaalprogramma 
BSAVE"MSX1DUMP.BIN",&HC000, 

AD,&HC000 
CLS 

PRINT" INT"De routine kan worden 
geladen met BLOAD"CHR$(34) 

"MSX1DUMP.BIN"CHR$(34)",R." 

PRINT"Hierna volgt een reset!" 
PRINT"Met de volgende toetsen kan 
daarna een screendump gemaakt 
worden:" 

PRINT 

PRINT"CTRL+O - Normale afdruk zon¬ 
der sprites" 

PRINT"CTRL+P - Normale afdruk met 
sprites" 

PRINT"CTRL+V - Doublé strike zon¬ 
der sprites" 

PRINT"CTRL+W - Doublé strike met 
sprites" 


00,0246 

730 DATA 00,00,00,00,00,00,00,00,00, 
00,0000 

740 DATA F3,21,9F,FD,11,55,40,ED,A0, 
ED,05D0 

750 DATA A0,ED,A0,ED,A0,ED,A0,3E,C9, 
32,0680 

760 DATA 9F,FD,CD,38,01,CB,0F,CB,OF, 
E6,053C 

770 DATA 03,4F,06,00,21,Cl,FC, 09, B6, 
4F,0344 

780 DATA 23,23,23,23,7E,E6,0C,B1,32, 
A0,037F 

790 DATA FD,21,50,40,22,Al,FD,3E,F7, 
32,04D5 

800 DATA 9F,FD,FB,C9,18,00,CD,5A,40, 
00,04DF 

810 DATA 00,00,00,00,F3,F5,C5,D5,E5, 
3E,04A5 

820 DATA 03,32,51,40,3E,06,CD,41,01, 
CB,02E4 

830 DATA 4F,20,IE,3E,04,CD,41,01,CB, 
67,0310 

840 DATA 28,1F,CB,6F,28,29,CB,77,28, 
42,037E 

850 DATA 3E,05,CD,41,01,CB,5F,28,2B, 
CB,039A 

860 DATA 67,28,2E,AF,32,51,40,El,Dl, 
Cl,04A2 

870 DATA F1 ,FB,C9,3E,01,32,52,45,AF, 
32,049E 

880 DATA 41,45,CD,D9,40,18,E8,3E,01, 
32,03DD 

890 DATA 52,45,3E,01,32,41,45,CD,D9, 
40,0374 

900 DATA 18,D9,3E,02,32,52,45,18,El, 
3E,0331 

910 DATA 02,32,52,45,18,E8,21,55,40, 
11,0292 

920 DATA 9F,FD,ED,A0,ED,A0,ED,A0,ED, 
A0,07D0 

930 DATA ED,A0,AF,32,00,40,CD,CO,00, 
18,0453 


PRINT"CTRL+Q - Verwijder routine 940 

uit geheugen" 

PRINT 950 

PRINT"Veel succes!!" 

BEEP 960 

END 

REM 970 
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REM machinetaaldata's 


980 

990 

1000 


DATA B2,ED,73,44,45,CD,A8,00, CA 
EE,05C8 

DATA 43,0E,08,3A,E0,F3,E6, 03,28 
08,037F 

DATA OE,10,FE,03,20,02,0E,20,79 
32,021A 

DATA 42,45,3A,E0,F3,E6,01,3C,32 
43,042C 

DATA 45,21,00,00,22,2C,F9,21,FF 
00,02CD 

DATA 22,2A,F9,3A,E1,F3,E6,OF,87 
87,0556 

DATA 67,2E,00,22,48,45,3A, E2, F3 
2E,0381 
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1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

16 


DATA 00,67,CB,3C,CB,1D,CB,3C,CB, 

1D,0445 

1350 

DATA 90,57,B9,D2,99,42,3A, 43,45, 
3D,044C 

DATA 22,4C,45,3A,E3,F3,E6,07,87, 

87,04BE 

1360 

DATA 28, 02, CB, 3A,7A,32,51,45,CD, 
FF,043D 

DATA 87,67, 2E,00,22,4A,45,3A,E4, 

F3,03DE 

1370 

DATA 44,28,10,DD,E5,El,23,23,23, 
CD,0455 

DATA E6, 7F, 67,2E,00,CB,3C,CB,1D, 

22,040B 

1380 

DATA 4A, 00,E6,OF,28,03,33, 33, C9, 
Fl,038A 

DATA 4E, 45,3A,E5,F3,E6,1F,87,87, 

87,053F 

1390 

DATA 3C,FE,20,C8,C3,40,42,06,80, 
C5,04B2 

DATA 67,2E, 00, 22,46,45,3A,EO,F3, 

CB,041A 

1400 

DATA FD, 21,99, 45, CD, OD, 44,06, 40, 
C5,0425 

DATA 5F, C2,5B, 43, CB, 67, C2, 6E, 41, 

3A,049C 

1410 

DATA CD,El,42,Cl,10,F9,CD,2D,44, 
06,04FE 

DATA DF, F3, FE,02,CA,Al,42,C3,9E, 

41,0621 

1420 

DATA 40, C5,CD,El,42,Cl,10,F9,CD, 
51,05DD 

DATA 2A, 22,F9,06,18,C5,06,28,C5, 

CD,03E8 

1430 

DATA 44,06,40,C5,CD,El,42,Cl,10, 
F9,0509 

DATA 4A,00,FE,20,30,09,F5,3E,01, 

CD,03A2 

1440 

DATA CD,9C,44,CD,75,44,CD,75,44, 
21,04DA 

DATA A5,00,Fl,C6,40,CD,A5,00,23, 

Cl,04F2 

1450 

DATA 00,00,22,2C,F9,C1,10,C5,C3, 
E4,0484 

DATA 10, E8,3E, OA, CD,A5,00,3E,OD, 

CD,03CA 

1460 

DATA 43,CD,FO,42,CD,75,44,CD,FO, 
42,05C7 

DATA A5,00,C1,10,D8,C3,E4,43,06, 

80,04BE 

1470 

DATA CD, 7A,44,C3,7F,44,3A,41,45, 
B7,0488 

DATA C5,FD,21,99,45,06,CO,C5, CD, 

CF,05E8 

1480 

DATA 28, 06, CD, 3F,42,C2,84,44,CD, 
DB,04AE 

DATA 41,CD,75,44,CD,CF,41,CD,7A, 

44,052F 

1490 

DATA 44,2A,53,45,16,00,5F,CB,23, 
CB,0334 

DATA CD, 7F, 44, Cl, 10, ED, CD, 9C, 44, 

CD,05C8 

1500 

DATA 12,CB,23,CB,12,CB,23,CB, 12, 
19,03C1 

DATA 75, 44, CD,75, 44,21,00,00,22, 

2C,02AE 

1510 

DATA 3A, 2C,F9,E6,07,5F,16, 00, 19, 
OE,02E8 

DATA F9,C1,10,D4,C3,E4,43,3A,41, 

45,0548 

1520 

DATA 80,3A,2A,F9,E6,07,28, 05, 47, 
CB,0409 

DATA B7,28, 06, CD, 3F,42,C2,84,44, 

CD,048A 

1530 

DATA 39, 10, FC, CD,4A,00,Al,F5,EB, 
2A,0507 

DATA DB,44,F5,DD,El,2A,4A,45,16, 

00, 04Al 

1540 

DATA 53, 45,EB, 37,3F,ED,52,EB,2A, 
55,04A2 

DATA 5F, CB,23,CB,12,CB,23,CB,12, 

CB,04C0 

1550 

DATA 45,19,Fl,28,11,CD,4A,00,CB, 
3F, 03A9 

DATA 23,CB,12,19,3A,2C,F9,E6,07, 

5F,03C4 

1560 

DATA CB, 3F,CB, 3F,CB,3F,CC,00,44, 
C3,04F1 

DATA 16,00,19,OE,80,3A,2A,F9,E6, 

07,0307 

1570 

DATA 84,44, CD, 4A,00,E6,OF,CC,00, 
44,03E4 

DATA 28,05, 47, CB, 39, 10, FC, CD,4A, 

00,039B 

1580 

DATA C3,84,44,06,80,C5,FD,21, 99, 
45,04D2 

DATA Al,F5,DD,E5,Fl,2A,4C,45, CB, 

3F,060E 

1590 

DATA 06,CO,C5,CD,8C,43,CD,75,44, 
CD,057A 

DATA CB, 3F, CB,3F,16,00,5F,19,Fl, 

28,03BB 

1600 

DATA 8C, 43,CD,7A,44,CD,7F,44,Cl, 
10,04BB 

DATA 11, CD, 4A, 00, CB, 3F, CB, 3F, CB, 

3F,0446 

1610 

DATA ED, CD, 9C, 44, CD, 75, 44, CD, 75, 
44,05A6 

DATA CB, 3F, CC, 00, 44, C3, 84,44, CD, 

4A,04BC 

1620 

DATA 21,00,00,22,2C,F9,C1,10,D4, 
C3,03D0 

DATA 00,E6, OF,CC,00,44,C3,84,44, 

AF,043F 

1630 

DATA E4,43,3A,41,45,B7,28,06,CD, 
3F,03D8 

DATA F5,2A,4E,45,87,87,5F,16,00, 

19,034E 

1640 

DATA 42,C2,84,44,CD,DB,44,F5,3A, 
2C,0513 

DATA E5,DD,El,CD,50,00,3A, 42,45, 

4F,04D0 

1650 

DATA F9,CB,3F,CB,3F,E6,07,47,2A, 
4A,04B5 

DATA DB,98,47, 04,3A,2C,F9, 90, 57, 

B9,04BD 

1660 

DATA 45, 16,00, Fl,5F,CB,23,CB,12, 
CB,0441 

DATA 30,39,3A,43,45,3D,28,02,CB, 

3A,0297 

1670 

DATA 23,CB,12,CB,23,CB,12,7B,BO, 
5F,0455 

DATA 7A, 32,50, 45,DB,98,47,3A, 2A, 

F9,0458 

1680 

DATA 19,3A, 2A,F9,CB,3F,CB,3F,E6, 
01,0471 
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1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 


DATA 28, 0B,CD, 4A,00,E6,OF,CC,00, 
44,034F 

DATA C3,84,44,CD,4A,00,CB,3F,CB, 
3F,04B6 

DATA CB,3F,CB,3F,CC,00,44,C3,84, 
44,04AF 

DATA 3E,1B,CD,A5,00,3E,40,CD,A5, 
00,03BB 

DATA ED,7B,44,45,CD,CO,00,C9,3E, 
07,048C 

DATA CD,41,01,CB,57,28,E5,C9, 3A, 
EB,052C 

DATA F3,C9,7E,B7,C8,CD, A5, 00,23, 
18,0566 

DATA F7,2E,00,IE,00,3A,E2,F3,E6, 
80,04B8 

DATA CB,3F,CB,3F,67,EE,20,57,22, 
59,045B 

DATA 45,ED,53,57,45,22,55,45,ED, 
53,041D 

DATA 53,45,C9,2A,59,45,ED,5B, 57, 
45,040D 

DATA 3A, E2,F3,E6,20,CB,3F,CB,3F, 
B4,05DD 

DATA 67,3A,E3,F3,E6,01,87,87,87, 
B2 05A5 

DATA 57,22,55,45,ED,53,53,45, C9, 
2A,03DE 

DATA 59,45,ED,5B,57,45,3A,E2,F3, 
E6,0577 

DATA 40,CB,3F,CB,3F,B4,67,3A,E3, 
F3,057F 

DATA E6, 02, 87,87,87,B2,57,22,55, 
45,0442 

DATA ED,53,53,45,C9,21,2A,F9,35, 
C9,04E3 

DATA 21,2A, F9,34,C9,21,2C,F9,34, 
C9,0484 

DATA 21,69,45,47,CB,27,80,16,00, 
5F,02FD 

DATA 19,FD,E5,Dl,ED,AO,ED, AO, ED, 
AO,0773 

DATA D5,FD,E1,C9,3A,52,45,47,C5, 
CD,0626 

DATA F6, 43, 21,5B,45,CD,04,44,11, 
99,03B9 

DATA 45, 21, 9C,45,06,CO,C5,06,03, 
IA,02F5 

DATA 4E,CB,21,CB,21,CB,21,BI,2F, 
E6,04D8 

DATA 3F,CD,A5,00,23,13,10,ED, 01, 
03,02E8 

DATA 00,09,EB,09,EB,Cl,10,EO,Cl, 
10,046A 

DATA CB, 3E, OA, CD, A5, 00, C9, 2A, 48, 
45,0405 

DATA 11,20,00,3A,2C,F 9,CB,3F,CB, 
3F, 03A4 

DATA CB, 3F, 28,04,47,19,10,FD,3A, 
2A,0307 

DATA F9,CB,3F,CB,3F,CB,3F,5F,19, 
CD,055C 

DATA 4A, 00,C9,DB,98,5F,2A,46,45, 
16,03B0 

DATA 00, CB, 23,CB,12,CB,23,CB,12, 
CB,0461 

DATA 23, CB, 12,19,3A,51,45,CB,5F, 
28,033B 


2030 DATA OD,E6, 07,32, 51,45,3A,50,45, 
C6,0357 

2040 DATA 10,32,50,45,3A,50,45,16,00, 
5F,021B 

2050 DATA 19,OE,80,3A,51,45,B7,28,05, 
47,02A2 

2060 DATA CB,39,10,FC,CD,4A,00,Al, C9, 
00,0491 

2070 DATA 00,00,00,00,00,00,00,00,00, 
00,0000 

2080 DATA 00,00,00,00,00,00,00,00,00, 
00,0000 

2090 DATA 00,00,00,00,00,OD,1B,54,31, 
32,OODF 

2100 DATA 1B,53,30,35,37,36,00,00,00, 
00,0140 

2110 DATA 00,00,00,00,00,05,00,05,05, 
05,0014 

2120 DATA 05,00,02,00,02,05,02,00,07, 
00,0017 

2130 DATA 07,00,07,05,00,05,05,05,05, 
07,002E 

2140 DATA 00,07,07,05,07,02,02,02,02, 
07,0029 

2150 DATA 02,07,05,07,07,07,07,34,46, 
37,OODB 

2160 DATA 20,43,31,33,09,34,34,46,33, 
20,01D1 

2170 DATA 4C,31,38,09,34,35,31,45,20, 
43,0200 

2180 DATA 31,34,OD,OA,34,35,32,42,20, 
4C,01C5 

2190 DATA 31,39,09,34,35,33,32,20,00, 
00,0161 



Sony Plotterdump, gemaakt door MSX club 
‘De Bitbreakers’, (het origineetl is in kleur) 
tel: 01827 - 2272 
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Over het nieuwe MSX-DOS is al heel wat te doen geweest. Eerst was er een versie die niet geheel 
compatible en volgens ASCII nooit vrij gegeven was. En nu is de situatie zo dat er twee bedrijven in 
Europa zijn die beide de nieuwe MSX-DOS verkopen. Het leek ons interessant om de aanbiedingen 
van beide leveranciers eens naast elkaar te leggen. 

MSX-DOS 2.20 

Wie, Wat, Waar en Waarom 


In diverse databanken en sommige MSX-bladen hebben berichten 
gestaan over de licentie-problematiek van MSX-DOS 2.20. Hier 
gaan we er verder niet op in. Feit is echter dat MSX-DOS 2.20 in 
twee verschillende versies bij twee verschillende leveranciers te krij¬ 
gen is. Voor de consument rijst dan altijd de vraag: welke is de 
goede? Oftewel, als ik een nieuw MSX-DOS aan wil schaffen, waar 
moet ik dat dan doen? 



Europa versus Japan 

Het belangrijkste verschil tussen de 
twee types MSX-DOS 2.20 zit hem in 
het feit waar zij geproduceerd zijn. De 
door het Duitse HSH geleverde versie 
is volledig in Japan gemaakt en het 
produkt van de firma Sparrow Soft is 
in Europa gemaakt. Het is overigens 
wel dezelfde versie die beide leveran¬ 
ciers voeren; dat wil zeggen dat het 
voor de eventuele compatabiliteit van 
de software niets uitmaakt. Ook is de 
serie over de nieuwe MSX-DOS ge¬ 
schikt voor beide produkten. Het ver¬ 
schil heeft dan ook voornamelijk be¬ 
trekking op de gebruikte hardware en 
de schakeltechnieken. 


Custom Chip 

In de Japanse versie van MSX-DOS 
2.20 zit een speciale custom chip die 
een Megarom-schakeling bevat; een 
soortgelijke chip zit ook in de spel- 
Megaroms. Deze chip is echter niet 
beschikbaar voor mensen buiten het 
kartel in Japan en in Europa. Vandaar 
ook dat HSP in opdracht van de firma 
Sparrow Soft, samen met Armand Si- 
monis, de taak op zich had genomen 
om deze custom chip te emuleren. Dit 
is uiteindelijk ook gelukt en het blijkt 
dat MSX-DOS 2.20, door het gebruik 
van snelle losse componenten, in de 
Sparrow Soft versie sneller werkt dan 
in de oorspronkelijke Japanse uitvoe¬ 
ring. 

Omdat er in de Japanse uitvoering 
Roms zitten met een toegangstijd van 


250 nanoseconden en in de Europe¬ 
se versie Roms met een toegangstijd 
van 150 nanoseconden, is MSX-DOS 
in de Europese uitvoering ongeveer 
anderhalf keer zo snel als de Japan¬ 
se. Dit wordt ook veroorzaakt door het 
feit dat de toegang tot de registers in 
de custom chip 250 nanoseconden 
bedraagt en de toegangstijd van het 
statische Ram, dat voor dat doel in de 
Europese versie gebruikt wordt, 
slechts 45 nanoseconden bedraagt. 
Dit heeft ook nog eens het voordeel 
dat bij incourante MSX machines 
geen timing problemen kunnen optre¬ 
den. 


Documentatie 

Er zit natuurlijk ook verschil tussen de 
meegeleverde documentatie van de 
verschillende leveranciers. De Japan¬ 
se versie is, voor zover ons bekend, 
voorzien van een Engelstalige hand¬ 
leiding die vrij uitgebreid is. De Euro¬ 
pese versie is te verkrijgen met een 
documentatie in meer dan één taal, 
voorlopig zijn dit Nederlands en En¬ 
gels. Met name het feit dat iets nieuws 
leren altijd makkelijker is in de moe¬ 
dertaal dan in een andere taal, biedt 
dit voor de Nederlandse en Belgische 
consument een voordeel. Overigens 
bevat de documentatie van beide 
DOS versies ook informatie over het 
nieuwe Diskbasic 2.00. 


Leverbaar 

Over de leverbaarheid van het nieu¬ 
we MSX-DOS is ook al heel wat te 
doen geweest. Gelukkig zijn beide le¬ 
veranciers op dit moment in staat tot 
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leveren. Opgemerkt moet wel worden 
dat bij een grote vraag naar het pro- 
dukt eigenlijk alleen het Europese 
produkt snel uitgeleverd kan worden. 
De Europese versie kan in elke hoe¬ 
veelheid binnen drie weken geleverd 
worden. Bij zendingen uit Japan moet 
men toch altijd wel op minimaal twee 
maanden rekenen. Dit is een van de 
redenen waarom de firma Sparrow 
Soft de produktie in eigen hand wilde 
houden. 

Het blijft natuurlijk altijd moeilijk om 
als consument te bepalen waar je nou 
het veiligst je spullen vandaan kunt 
halen. Deconsumentenvoorwaarden, 
zoals die door de Consumentenbond 
voorgesteld zijn, worden helaas door 
beide leveranciers niet aangehouden, 
alhoewel Sparrow Soft uit Friesland, 
dat al langer dan drie en een half jaar 
op de Nederlandse MSX-markt ope¬ 
reert, deze wel aanhoudt als richtlijn 
voor het behandelen van klachten en 
problemen. Het beleid van HSH in 
deze is ons niet bekend. Dit Duitse 
bedrijf, dat vorig jaar maart is opge¬ 
richt, beweegt zich nog maar sinds 
enkele maanden op de Nederlandse 
MSX-markt. 



De prijs 

De prijzen van de MSX-DOS 2.20 
versie lopen uiteen tussen de twee 
bedrijven. Bij Sparrow Soft kost het 
nieuwe besturingssysteem los ƒ 300,- 
incl. BTW, met een Nederlandstalige 
handleiding. Ook biedt dit bedrijf 
MSX-DOS dit najaar aan in combina¬ 
tie met andere artikelen, zoals hard¬ 
disks of een SCSI interface. De prijs 
van de firma HSH is minder doorzich¬ 
tig. Om te beginnen kost deze 220 
Duitse Marken. Daarnaast moeten de 
kosten voor verzending en een post¬ 
wissel betaald worden. Verder moet 
men ook rekening houden met 18,5% 
BTW. Een grove berekening komt on¬ 
geveer uit op ƒ 325,-, wat er dus wel 
anders uitziet dan 220 DM. 


Conclusie 

Om in het kort de verschillen nog 
eens te noemen: 

Europese versie: 

Nederlandstalige handleiding, toeg- 
angstijd Roms 150 nanoseconden, 
toegangstijd register 45 nanosecon¬ 
den, levering binnen drie weken, in 
Europa gemaakt, Nederlandse garan¬ 
tie, prijs ƒ 300,- of lager in combinatie 
met andere artikelen. 

Japanse versie: 

Engelstalige handleiding, toegang¬ 
stijd Roms 250 nanoseconden, toeg¬ 
angstijd register 250 nanoseconden, 
levertijd afhankelijk van voorraad tus¬ 
sen drie weken en drie maanden, Ja¬ 
pans fabrikaat, Japanse garantie, 
prijs rond de ƒ 325,-. 

Het is toch aardig om te zien dat Eu¬ 
ropese MSX produkten soms zelfs 
beter zijn dan die van Japans fabri¬ 
kaat. Zeker met het oog op de onze¬ 
kere MSX-toekomst geeft dit weer 
wat hoop voor de Europese consu¬ 
ment; deze hoeft dan niet meer te 
wachten tot een aantal Japanse fabri¬ 
kanten en zakenlui besluiten om een 
nieuw produkt naar Europa te expor¬ 
teren, iets wat op dit moment sterk 
speelt in relatie tot de verschijning 
van de MSX2+ machine op de Euro¬ 
pese markt. 


Salasan Zomeraanbieding 

Philips Logo Compiler ƒ 79, -op ROM cartridge 
voor MSX l/MSX II 

De programmeertaal speciaal voor kinderen ontwikkeld 

MSX Calc van 199,- voor ƒ 99,- 
Nederlandstalige spreadsheet 
voor MSX I 

ROM cartridge + Nederlandstalige handleiding in ringband 


Prijs inclusief BTW en verzendkosten. Te bestellen door overmaking van het bedrag op giro 5641219 t.n.v. 
SALASAN Amsterdam o.v.v. artikel. Rembouiszendingen zijn mogelijk, hiervoor brengen we echter tl. 5,00 
in rekening. SALASAN Postbus 5570 1007 AN Amsterdam 
Voor inlichtingen, bestellingen en gratis catalogus: 020.203219 
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Onlangs kregen we weer een aantal spellen uit Japan, die onder andere door Homesoft en Salasan 
geleverd worden. We bespreken in dit nummer enkele van de stapel en houden u de rest tegoed. 

The Cockpit, F1 Spirit en The Greatest Driver 

The Cockpit is een flight simulator voor MSX-2, met The Greatest 
Driver kun je uittesten of je werkelijk de beste Formule 1 rijder bent 
en met F1 Spirit kun je je stuurmanskunst via verschillende races 
beproeven. 



In The Cockpit wordt de speler in de 
cockpit gezet van een groot passa¬ 
giersvliegtuig. Het doel van dit spel is 
om het vliegtuig veilig aan de grond te 
zetten. Maar voordat dat lukt moet er 
wel eerst veel geoefend worden. 
Voordat je begint met vliegen kun je 
kiezen uit een viertal vliegtuigen: een 
Convair CV-88, een DC-8, een 
Boeing 707 en een Boeing 747. Ver¬ 
volgens kun je een van de vliegvelden 
uitzoeken, waar je wil landen. Als 
laatste stelt je de windlevel in. Hier¬ 
mee bepaalt de speler de hoeveel¬ 
heid wind, dus eigenlijk de moeilijk¬ 
heidsgraad. Als dit alles gedaan is 
kun je gaan vliegen. Maar er zit nog 
een moeilijkheid aan: je moet in het 
donker landen. 



Guide voice 

Tijdens het spel controleert de com¬ 
puter of je alles goed doet: dat je niet 
te hoog vliegt of te snel. En als je iets 
fout doet dan ZEGT (!!!) de computer 
letterlijk wat je fout doet. Als je bij¬ 
voorbeeld te langzaam vliegt, dan 


hoor je een stem zeggen datje sneller 
moet gaan vliegen (in het Engels). 
Deze ‘Guide voice’ maakt deze flight 
simulator dan ook zeer bijzonder ten 
opzichte van andere simulators. En 
de simulator wordt hierdoor ook aan¬ 
trekkelijker. De stem is zeer goed te 
verstaan. 

Behalve dat er tijdens het vliegen ge¬ 
zegd wordt wat je fout doet, wordt er 
na het vliegen een overzicht gegeven 
van wat je fout hebt gedaan of wat je 
juist goed hebt gedaan. 

Kwaliteit 

De schermkwaliteit is voor MSX-2 
heel aardig. De boordinstrumenten 
van het vliegtuig zijn duidelijk te le¬ 
zen. De geluidskwaliteit is goed. 
Vooral de ‘guide voice’ is zeer mooi 
gemaakt. Maar door deze ‘guide voi¬ 
ce’ is er geen plaats meer voor ande¬ 
re geluidseffecten dan het geluid van 
de motoren van het vliegtuig. Het 
spreken van de computer maakt dit 
echter weer goed. 



Tijd investeren 

Een ander pluspunt van dit spel is dat 
het, wat de besturing betreft zeer sim¬ 
pel is in vergelijking met andere flight 
simulators. Je hebt slechts zes toet¬ 
sen nodig om het hele vliegtuig te 
besturen. Maar wat wel even tijd kost 
is het goed besturen van het vliegtuig 
om het vervolgens veilig aan de grond 
te zetten. 

De prijs van The Cockpit bedraagt f 129,- 
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The Greatest Driver 

The Greatest Driver is een Formule 1 
simulator voor MSX-2. Dit spel laat de 
speler in een F1 racewagen rijden 
over een circuit. Hierbij kam je kiezen 
uit maar liefst 16 verschillende cir¬ 
cuits, die bovendien echt bestaan! 
Met dit spel kun je dezelfde Grand 
Prix racen als echte Formule 1 cou¬ 



reurs zoals Senna, Prost en Mansell. 
Dus echter kan het bijna niet. 

Behalve dat je over bestaande cir¬ 
cuits rijdt, is er ook nog een ander 
realistisch element in dit spel ver¬ 
werkt: het weer. 

Tijdens het racen kan het mooi zonnig 
weer zijn. Maar het kan ook slecht 
weer zijn, waardoor de baan nat wordt 
en je dus kan gaan slippen. 

En natuurlijk is de pit niet vergeten. 
Als je benzine op is of als er iets aan 
je auto kapot is, en dat zal beslist wel 
een keer gebeuren, dan rijd je de pit 
in en wordt je auto volgetankt en weer 
gerepareerd. 


Eigen auto ontwerpen 

Met de Tuning Mode’ kun je je eigen 
auto in elkaar zetten. Je kunt kiezen 
tussen verschillende soorten motoren 
en schokdempers. Bovendien kun je 
kiezen tussen een aantal mooi-weer 
banden en een aantal slecht-weer 
banden. Dit geeft je de mogelijkheid 
verschillende auto types uit te testen. 

Kwaliteit 

De makers van dit spel hebben alle 
mogelijkheden op grafisch gebied van 
de MSX-2 computer gebruikt. Het 
spel is grafisch zeer goed verzorgd. 
Vooral bij de intro is de schermkwali- 
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teit schitterend. Maar ook tijdens het 
spel is de kwaliteit zeer goed. Behal¬ 
ve de schermkwaliteit is ook het ge¬ 
luid heel goed. Je raced op de circuits 
voor een bedrag van ƒ 129,- 

Kuno Jansen 



F-l Spirit nader bekeken 

Hier hebben we weer te maken met 
een cartridge van de welbekende Ko- 
nami makers. Wat is de bedoeling? 
Na het starten van het spel hebben 
we de keuze tussen Game (het spel) 
of Command. Allereerst de keuze 
Command. Als we deze kiezen heb¬ 
ben we wederom vijf keuzemogelijk¬ 
heden, namelijk: Game (terug naar 
het begin), Exchange (ingevoerde 
passwords weghalen), Password 
(een codewoord aanvragen), Input 
password (een codewoord invoeren) 
en tot slot de keuze Game Over (het 
spel vanaf het begin af aan opstar¬ 
ten). Dan nu de optie Game. Als we 
deze kiezen hebben we de mogelijk¬ 
heid om met één of twee spelers te 
spelen. Nu kan het spel echt begin¬ 
nen, want nu kunnen we een race 
selecteren. Er zijn allerlei soorten 


races, oa. Rally, Formule 3, Enduran- 
ce en de Formule 1, een race over 16 
ronden. 

Plaatje 

De eerste drie bestaande races kun¬ 
nen direkt worden gekozen, voor de 
anderen dien je eerst over een aantal 
punten te beschikken. Alle races zijn 
compleet met pitstops en behalve en¬ 
kele standaardwagens voor elke 
race, kan men zelf ook een auto sa¬ 
menstellen. Na dit gedaan te hebben 
kan het werkelijke racen beginnen. 
Het trajekt, de positie, benzine en be¬ 
schadigingen worden opgegeven in 
een beeldscherm naast het spel. De 8 
kanaals geluidschip ontbreekt ook 
niet, waardoor muziek- en geluidsef¬ 
fecten fantastisch klinken. 

Conclusie 

Een prima spel voor alle freaks. Het is 
een erg uitgebreid spel met veel mo¬ 
gelijkheden Een 8 stemmige geluid- 
chip en nog vele extra’s. 

Voor de prijs van f 79,00 krijg je een 
fantastische cartridge, hetgeen we onder¬ 
hand wel gewend zijn van Konami. 

Anne-Jan de Jong 


King Kong 



Het plaatje op het Konami spel, (zie 
de cover van MSX Info) met King 
Kong die wordt belaagd door een 
aantal helicopters en een leger stoere 
soldaten, wekt meer verwachtingen 
dan het spel inhoudt. Deze cartridge 


biedt een adventure game, waarbij je 
als avonturier door een doolhof ge¬ 
voerd wordt en wordt belaagd door de 
meest afzichtelijke gedrochten. Om er 
maar een paar te noemen: duizend¬ 
poten, de varkensworm, wilde zwij¬ 
nen, rode spinnen, zeeluizen, giftige 
kikkers en slip slimes (wat dat ook 
maar mag zijn). Maar daarmee is het 
niet afgelopen. Ook mensen zijn er 
van allerlei pluimage. Wat te denken 
van de Visman, Mr. Ruins, de Club¬ 
man en natuurlijk komen we ook King 
Kong tegen. Om het tegen al die ver¬ 
vaarlijke wezens op te nemen, heb je 
de beschikking over verschillende le¬ 
vens en wapens. Mocht je tot je eind¬ 
doel raken, dan zul je merken dat de 
overwinning zoet smaakt. 

De kwaliteit van de cartridge is weer 
vanouds Konami. Alleen het geluid is 
een beetje irritant, steeds weer hetde- 
zelfde deuntje verveelt snel. Wij had¬ 
den nog niet de beschikking over een 



Nederlandse of Engelse handleiding, 
dus moesten we onze weg door het 
doolhof volgen met behulp van een 
Japanse uitleg. 
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Hobbyisten en zakelijke gebruikers 
ook dit najaar bent u weer van harte 
welkom op 

de 12 e 
Computer 
Info Beurs 

zaterdag 4 november, 10.00 - 17.00 uur in de RAI Amsterdam 

toegang f 7,50 

Dé traditionele koopbeurs voor iedereen, die aktief bezig is met computers / 
voor elk merk computer; de nieuwste modellen en software; 
de beste aanbiedingen tegen de laagste prijzen. 



Maak gebruik van onderstaande bestelbon en bespaar f 2,50 op de toegangsprijs !! 


Bestelbon 12 e Computer INFO Beurs 


! Tegen inlevering van deze bon ƒ 2,50 korting aan de kassa van de RAI. op zaterdag 4 november 1989. 

j b° n ^^ Cen k°P* e ) v °° r 22 oktober naar onderstaand adres, en u krijgt uw toegangsbewijs thuisgestuurd (meerdere kaarten 

• naam:. 

i adres:. 

: postcode, woonplaats: . 

i Aantal toegangskaarten a ƒ 5,-:. 

Handtekening: 

[ °P sturen met geldig betaalmiddel (girocheque, eurocheque) naar Sala Communications, Postbus 43048, 1009 ZA Amsterdam 











Met de komst van een SCSI harddisk interface is er een wereld van nieuwe toepassingen voor de 
MSX opengegaan. Deze SCSI standaard is namelijk bedoeld als opvolger van de nu gebruikte 
interface standaard (SHUGART) in de PC. Ook computersystemen als de Macintosh maken gebruik 
van de SCSI standaard en ook de allernieuwste digitale samplers en keyboards gebruiken deze 
interface gebruik wegens z’n hoge overdrachtssnelheid. Er kunnen transfersnelheden van tot 4 
Megabyte per seconde bereikt worden. 

SCSI Harddisk interface 

Nieuwe start voor de MSX 


Vorig jaar was er tijdens de HCC-dagen in november een werkende 
SCSI harddisk voor de MSX te zien. Door verschillende problemen 
kwam de produktie hiervan pas later op gang. De problemen hadden 
alles te maken met SCSI. 



Verschil tussen SCSI en SCSI 
De reden dat deze serieproduktie zo¬ 
lang op zich heeft laten wachten was 
eigenlijk vrij simpel, het produkt dat 
uitgebracht zou moeten worden vol¬ 
deed namelijk niet aan de verwachtin¬ 
gen. Het voornaamste probleem was 
niet de interface zelf, maar het feit dat 
er ook bij deze interface een speciaal 
daarvoor bedoelde controller nodig 
was. Maar volgens de specificaties, 
en ook de tekeningen van de firma 
ASCII, was er duidelijk sprake van 
een SCSI interface. Vandaar natuur¬ 
lijk dat men alles waar de letters SCSI 
opstonden uitprobeerde met deze in¬ 
terface. 

Tot verwondering van de betrokkenen 
reageerde geen enkele harddisk posi¬ 
tief. Hierna werd natuurlijk op een wat 
hoger technisch niveau de SCSI inter¬ 
face van ASCII onder de loep geno¬ 
men en wat bleek: signalen die door 


de interface volgens de SCSI stan¬ 
daard afgegeven moesten worden, 
werden helemaal niet afgegeven. 
Ook bleek dat de interface geen eigen 
klok had, zodat bij het verwerken van 
asynchrone signalen timing-proble- 
men optraden. 

Hierna heeft men nog geprobeerd 
een harddisk met een controller te 
zoeken die zou kunnen werken met 
de ASCII SCSI interface, maar ook dit 
bleek ijdele hoop. Bij toeval werden 
echter contacten gelegd met een 
Duitse Spectravideo gebruikers¬ 
groep, die wel een werkende harddisk 
op een MSX aan de gang hadden. 


Nieuw ontwerp 

Het bleek dat de harddisk die gebruikt 
werd door de SVI-club ook met het 
SCSI standaard systeem werkte. Om¬ 
dat men bij de club graag de interface 


in produktie wilde zien, nam de Ne¬ 
derlandse firma Sparrow Soft het pro¬ 
ject over om te proberen het ontwerp 
te perfectioneren en ervoor te zorgen 
dat het rijp gemaakt zou worden voor 
serieproduktie. 

Het belangrijkste verschil tussen het 
oude en nieuwe ontwerp is, dat de 
oude interface eigenlijk niets meer is 
dan een aantal LSI-chips met wat re- 
gisterchips. Echte signalen die met de 
SCSI busstructuur te maken hebben 
worden niet ondersteund, en dit is met 
name voor de controle van de timing 
van de diverse signalen funest. 

Een Z80 kan met zijn 3,5 Megahertz 
natuurlijk geen datatransport van 1 
Megabyte per seconde aan, maar de 
meeste SCSI harddisks werken met 
dat soort snelheden. Vandaar ook dat 
de nieuwe interface uitgerust is met 
een speciale customchip, namelijk 
een SCSI buscontroller chip van 
Western Digital uit California. Deze 
controller wordt gestuurd met een 
kristal van 10 Megahertz. Hierdoor 
kan de controller zelf de signalen van 
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de host en de bus synchroniseren, 
zodat er geen timing-problemen meer 
optreden. Daarnaast ondersteunt de 
buscontroller alle SCSI signalen en is 
hij in staat alle signalen met hun ti¬ 
ming te controleren. 

De nieuwe SCSI interface kost onqe- 
veer ƒ 300,- 

We hebben wat technische gegevens 
in een aantal afbeeldingen bijge- 
voegd. a 


Wat is SCSI 

Misschien is het wat vreemd om hal¬ 
verwege een artikel over een onder¬ 
werp uit te gaan leggen wat het on¬ 
derwerp nu precies inhoudt m: ar dit 
is, om het allemaal wat duidelijk te 
houden, wel nodig. De SCSI stan¬ 
daard is een manier van interfacen 
dat wil zeggen het is een manier om 
computers en randapparaten met el¬ 
kaar te verbinden. Het systeem on¬ 
derscheidt zich van al bestaande sys¬ 
temen door de volgende zaken. 

Ten eerste is het mogelijk om de con¬ 
troller van de harddisk zelf actief te 
programmeren en kan de controller 
datzelfde ook weer naar een ander 
apparaat, wat op de SCSI-bus aange¬ 
sloten is laten plaatsvinden. Het is 
een intelligente controller. De snel¬ 
heid van de data-overdracht ligt ook 
veel hoger dan bij andere systemen, 
vandaar ook dat deze manier van in¬ 
terfacen meestal bij grote systemen 
gebruikt wordt. Afhankelijk van de 
snelheid van de elementen van het 
systeem kunnen gegevens tot een 
snelheid van 4 Megabyte per secon¬ 
de overgedragen worden (dat is weer 
eens wat anders dan 9600 bits oer 
seconde). 


Verder is de busstructuur ook heel 
bijzonder. De grootste afstand tussen 
twee apparaten die op de bus aange¬ 
sloten zijn, kan 6 meter bedragen Dit 
houdt in dat met het systeem op vrij 
eenvoudige wijze een netwerk opge¬ 
bouwd kan worden. Dat is dan wel 
een LAN (Local Area NetWork), maar 
dan wel een met een snelheid die 
overeenkomt met die van het interne 
geheugen. Overigens siert de een¬ 
voud de busstructuur, het is niets an¬ 
ders dan een 50-polige kabel waar¬ 
aan men een apparaat koppelt. Dit 
kan dan een hostinterface zijn (deze 
wordt bij computers gebruikt), of het is 
een controller, en die wordt meestal 
voor randapparaten gebruikt. 

Er kunnen maximaal 8 interfaces of 
controllers op de bus aangesloten 
worden. Deze hebben dan een zoge¬ 
naamd SCSI-ID nummer dat van nul 
tot 7 loopt. Maar per controller of inter¬ 
face kunnen ook weer 8 apparaten 
aangesloten zijn. Deze apparaten 
noemt men logische units, afgekort 
tot LUN. Ook hier loopt de ID van nul 
tot 7. De ID van de nu ontwikkelde 
hostinterface is op dit moment nul. 
Het ligt in de bedoeling dat in de toe¬ 
komst een interface in de handel komt 
met de mogelijkheid om ook de ID te 
veranderen, zodat de MSX compu¬ 
ters dan ook met elkaar in een net¬ 
werk geplaatst kunnen worden, waar¬ 
bij dan ook weer meerdere computers 
van een schijveneenheid gebruik kun¬ 
nen maken. 


Toepassingen 

Om een impressie te geven wat je 
zoal met een SCSI interface kunt 
doen noemen we hier een paar toe¬ 
passingen. De meest voor de hand 


liggende toepassing is het aansluiten 
van een harddisk. Hier komen we la¬ 
ter op terug. Een andere vaak ge¬ 
bruikte toepassing is het CD rom 
Verder speciale randapparaten zoals 
digitisers, handscanners en page- 
scanners met OCR, glasvezel data¬ 
communicatie en andere nieuwe 
high-tech toepassingen. 

Met deze interface is de MSX dus 
weer back on the right track. Voor 
degenen die misschien bang zijn dat 
hun MSX hopeloos verouderd zou 
zijn en niet meer geproduceerd zou 
worden hebben we een vrij positief 
bericht: ook bij de allernieuwste appa- 
ratuur voor geluidsopwekking en re¬ 
gistratie wordt uitsluitend en alleen 
nog maar met SCSI gewerkt, en bo¬ 
vendien worden er in allerlei van dat 
soort nieuwe produkten verborgen 
MSX-systemen gebruikt. 

Zo gebruikt ROLAND bij zijn nieuwste 
samplers een tekentableau om golf- 
vormen op te tekenen. Dit tableau is 
volledig identiek aan het door Philips 
uitgebrachte tekentablet. Ook de bij 
het systeem gebruikte muis is een 


AO R/W REGISTER 

ADORESS 

0 R AUXILIARY STATUS 


xx- 

0 W AODRESS REGISTER 


XX 

1 RW OWN ID REGISTER 


00 

1 R/W C0NTR0L REGISTER 


01 

1 R/W TIMEOUT PERIOD REGISTER 


02 

1 R/W TOTAL SECTORS REGISTER 

1ST CDB 

03 

1 R'W TOTAL HEADS REGISTER 

2ND CDB 

04 

1 R/W TOTAL CYLINDERS REGISTER MSB 

3RD CDB 

05 

1 R/W TOTAL CYLINDERS REGISTER LSB 

4TH CDB 

06 

1 R/W LOGICAL ADORESS MSB 

5TH CDB 

07 

1 R/W LOGICAL ADDRESS 2ND 

6TH CD8 

08 

1 R'W LOGICAL ADDRESS 3RD 

7TH CDB 

09 

1 R/W LOGICAL ADDRESS LSB 

BTH CDB 

OA 

1 R/W SECTOR NUMBER REGISTER 

9TH CDB 

OB 

1 R'W HEAD NUMBER REGISTER 

10TH CDB 

0C 

1 RAAI CYLINDER NUMBER REGISTER MSB 

11TH CDB 

0D 

1 R/W CYLINDER NUMBER REGISTER LSB 

12TH CDB 

0E 

1 R/W TARGET LUN REGISTER 


OF 

1 R/W COMMAND PHASE REGISTER 


10 

1 R/W SYNCHRONOUS TRANSFER REGISTER 


11 

1 R/W TRANSFER COUNT REGISTER MSB 


12 

1 R/W TRANSFER COUNT REGISTER 2ND 


13 

1 R W TRANSFER COUNT REGISTER LSB 


14 

1 R W DESTINATION ID REGISTER 


15 

1 R W SOURCE ID REGISTER 


16 

1 R SCSI STATUS RFGlSTfR 


17 

1 R W COMMAND REGISTER 


18“ 

1 R W DATA REGISTER 

‘ADDR IS Ifi IN THE DIRECT VODE 
••NOADOR «EG INCR OCCURS 


19“ 
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Aantal disks 

2 

Aantal koppen 

4 

Dichtheid per track 

804 

Rotatiesnelheid 

3600 RPM 

Overdrachtssnelheid 

tot 1 MB per seconde 

Toegangstijd 

Zoektijd: 

8,33 msec. 

Gemiddeld 68 msec. 

Maximaal 150 msec. 

Singletrack 15 msec. 

Start/stop tijd 15 sec. 

Stroomverbruik 

13 watt 

Temperatuur 

4 tot 50 C 

Vochtigheid 

Levensduur: 

8 tot 80% 

Mechanische onderdelen 

20000 uur 

Componenten 

5 jaar bij continu gebruik 

Databetrouwbaarheid 

1 herstelde fout in 10 tot de 
tiende bits bij lezen. 

Een zoekfout in 10 tot de zesde 
zoekopdrachten. 

Deze fouten zijn geconstateerd met de foutcorrectie uit. (de foutcorrectie 

kan ook door het systeem automatisch uitgevoerd worden). 


muis. 

Miniscribe 

Harddisks zijn verkrijgbaar voor ver¬ 
schillende prijzen in verschillende 
kwaliteiten. Een vervelende bijkom¬ 
stigheid van het SCSI systeem is het 
feit dat de controllers uitgerust zijn 
met extra Rambuffers en snelle pro¬ 
cessors om de hoge snelheid moge¬ 
lijk te maken. Deze chips zijn niet 
goedkoop. Dit houdt in dat een SCSI 
drive per definitie duurder is dan één 
die volgens de SHUGART-bus aan¬ 
gesloten wordt. 

Gezien het grote aantal PC bezitters 
dat overschakelt op SCSI is produktie 
wel de moeite waard. Omdat MSX 
bezitters nu eenmaal een beperkter 
budget hebben dan bedrijven die pro¬ 
fessioneel computers gebruiken, was 
het zaak om de eindgebruikersprijs 
vrij laag te houden. Door goede rege¬ 
lingen met importeurs is het daarom 
wel mogelijk om een 20 Megabyte 
SCSI harddisk voor zo’n ƒ 1500,- te 
verkrijgen, compleet met kast en voe¬ 
ding. 

Eén van de meest bekende merken 
harddisks is de Miniscribe. 

De Miniscribe 20 Megabyte Harddisk, 
is een 3,5 inch disk die hetzelfde for¬ 
maat heeft als een normale 3,5 inch 
floppy diskdrive. Ze zijn volledig com¬ 
patible met ANSI X3.131-1986. 

In de drive worden een aantal nieuwe 
technologiën toegepast. Zo is het me¬ 
chanische systeem uiterst trilling- en 
schokbestendig door het gebruik van 
nieuwe vormvaste flexibele materia¬ 
len. Doordat er een micro-processor 


lil IWI Hl WI V.. w ~ 

de stappenmotor actief gecontroleerd 
wordt, is er een erg hoge mate van 
betrouwbaarheid bereikt. Door bij de 
produktie gebruik te maken van ro¬ 
bots wordt een hoge graad van nauw¬ 
keurigheid bereikt in de assemblage, 
waardoor storingen in principe uitge¬ 
sloten zijn. Bovendien zit er in het 
geval van een storing een systeem in 
waarmee de drive zijn eigen diagno¬ 
se, of die van de bus, kan stellen. 


Schokken en stoten 

Buiten gebruik kan de drive een 
schok van 50 G overleven in een puls- 
vorm van 10 pulsen. Dit komt overeen 
met wat er tijdens een explosie ge¬ 
beurt. Als hij aanstaat kan hij op de¬ 
zelfde wijze een kracht van 8 G weer¬ 
staan. Hij is ook niet gevoelig voor 
trillingen zoals die in constructies en 
fabrieken plaatsvinden. 

Daarnaast voldoet de Miniscribe 20 
MB aan zo’n beetje alle standaards 
die er op veiligheidsgebied bestaan. 
Hij is nog net niet 
goedgekeurd door 
de Nederlandse 
Vereniging voor 
Huisvrouwen, 
maar voldoet zon¬ 
der meer aan de 
eisen van UL, 

CSA en FCC. 

Conclusie 

Voor velen is een 
keuze voor een 
MSX systeem een 
keuze voor dege- 


AUXILIARY STATUS REGISTER 
r 7 6 5 4 3 2 1 0 

| IIVIT | LCI | BSV | CIP | 0 | 0 | PE |DBR| 


DATA BUFFER READY 
PARITY ERROR 
NOT USED 
NOT USED 

COMWAND IN PROGRESS 
BUSY 

LAST COMMAND IGNOREO 
INTERRUPT PENDING 


ADDRESS REGISTER 

BIT 7 6 5 4 3 2 1 0 

t7[AR6l AR5|ARJ | AR3|AR2| AR1 l A ^°1 


- ADDRESS REGISTER BIT 0 

- ADDRESS REGISTER BIT t 

- ADDRESS REGISTER BIT 2 
_ ADDRESS REGISTER BIT 3 

- ADDRESS REGISTER BIT 4 

- ADDRESS REGISTER BlT S 

- ADDRESS REGISTER BIT 6 

- ADDRESS REGISTER BIT 7 


OWN ID REGISTER 


| Q | Q [ 0 | 0 | O |lD2 1 IDI llDO | 


ID BIT 0 
ID BIT \ 

ID Bit 2 
NOT USED 
NOT USED 
NOT USED 
NOT USED 
NOT USED 


CONTROL REGISTER 


oi jpMAWpej o | o | o I o | ha|hpü| 


HAi-T ON PARI Tv ERROR 
HALTON ATTEN'ION 
NOT USED 
NOT USED 
NOT USED 
NOT USED 
DBA BUS SELECT 
DMA SELECT 


TIMEOUT PERIOO REGISTER 
BIT 76543210 

.. m 

EACH BIT VALUE fl MS MAX 2 04 SECONDS 
(10 MHZ CLOCKi 

TOTAL SECTORS REGISTER CDB 1ST BYTE 
BIT 7 6 5 4 3 2 1 0 

i i i i i i i ~n 

THE TOTAL NUM8ER OF SECTORS 

TOTAL HEADS REGISTER CDB 2ND B V TE 
BIT 7 6 5 4 3 2 1 0 

I I I I I I I I I 

TOTAL NUMBER OF HEADS 


lijkheid en betrouwbaarheid geweest. 
De SCSI interface en de Miniscribe 
harddisk volgen deze lijn; zeker voor 
diegenen die eigenlijk van plan waren 
om dit jaar naar de PC over te stap¬ 
pen is dit een zeer goed alternatief. 


tel. 


(Inl. over de SCSI en Miniscribe, 
05668 - 453) 

A. van Norden 
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PRINT OUT met o.a. Free, Muziek, Piano 


Correcties MSX Info 2/89 


In de listing Waterpolitie luidt de juiste regel 600: 

600 RESTORE 410:FOR 1=10 TO 12:X$="" 

Voor details over de grap in ‘Maze’ en Toren’: 
zie het artikel ‘Lastige grapjes, listige grollen’. 


LISTING TESTER 


We krijgen nog steeds veel vragen over de List 
Tester, dus daarom nogmaals een uitgebreide 
uitleg. Een listing tester of checksum programma 
telt in iedere programmaregel de waarde van de 
tekens op en komt met de som ervan. Die check¬ 
sum per regel en ook van het hele programma 
dient om diegene die het programma overtikt, zijn 
checksum te kunnen laten vergelijken met die 
van het blad. 

Zijn die niet gelijk, dan zit er nog ergens een fout 
en met de regelnummers, waar verschillen in zit¬ 
ten, is dat snel te verhelpen. Zijn die checksums 
gelijk, dan is het vrijwel zeker dat men de listing 
goed heeft overgenomen. Hoogstens kan er nog 
een verwisseling in zitten dus bijvoorbeeld de v 
en u omgedraaid; dat wordt dan goed geteld 
maar is fout. De list tester zoals die hierbij weer 
is afgedrukt, werkt het gemakkelijkst wanneer u 
hem wegzet/save’d op een apart bandje. Dat sa¬ 
ven van het programma moet wel gebeuren met 
de toevoeging, a. dus bijvoorbeeld met SAVE 
“CAS:LISTTEST”,A 

Dat betekent dat het als een ASCII-file op de 
band komt. Nadat u nu een ander programma 
heeft ingetikt en dat ALTIJD eerst gesave’d heeft, 
kunt u de controle gaan uitvoeren. Daartoe doet 
u het bandje met de List tester in de cassettere¬ 
corder en laadt dat via MERGETISTTEST". 

Wat er dan gebeurt is dat de list tester met vrij 
hoge regelnummers (vanaf 63000) achter het be¬ 
staande programma wordt gezet, geMERGE’d. 
Het eerste programma zit er dus nog in, maar 
vanaf 63000 zit de tester erachter. 

Door nu RUN 63000 als commando te geven, 
gaat de computer vanaf regel 63000 aan de gang 
en bemoeit zich dus in eerste instantie niet met 
de programmaregels daarvoor. Alleen het listing 
tester programma wordt uitgevoerd. En dat doet 
nu precies wat de bedoeling is: het gaat het eer- 
ste deel, dus het te testen programma nu af en 
sommeert per regel. Dat komt in beeld of op pa¬ 
pier (wanneer u tenminste in de listing tester alle 
PRINT- opdrachten vervangt door LPRINT) en 
kan het vergeleken worden met het gedrukte lijst¬ 
je in het blad. 

Dan is er nog een probleem, en dat is dat MSX 
Basic werkt met relatieve pointers. Dat wil zeg¬ 
gen dat een verwijzing naar een andere program¬ 
maregel, zoals na GOTO, THEN of GOSUB, niet 
altijd dezelfde waarde heeft. Bij het runnen van 
het programma zoekt de computer dat uit en vult 
in plaats van een absoluut regelnummer een rela¬ 
tieve waarde in. Dat verklaart dat een checksum 


van een geLISTe regel anders kan zijn dan van 
een geRUNde regel. Na het SAVEn van het 
overgetikte programma de zaak dus een keertje 
RUNnen en dan wordt alles stabiel. 


63000 

63010 

63020 

63030 

63040 

63050 

63060 

63070 

63075 

63080 

63070 

63090 

63100 

63110 

63120 

63130 

63140 

63150 

63160 

63170 

63180 

63190 

63200 

63210 

63220 

63230 

63240 

63250 

63260 

63270 

63280 


REM ***** list tester ***** 

REM (C) 1985 Jan Bodzinga 

REM 

REM saven als ASCII file 
REM 'save "listtest",a' 

REM te testen programma laden 
REM merge "listtest" 

REM run 63000 

REM *********************** 

REM *** BEGIN PROGRAMMA *** 

REM *********************** 

CLS:PRINT”Spatiebalk = pauze” 
PRINT:PRINT M LISTTEST:" 

START=32768! 

PGM=START+1 

PUNT=START+3 

TSOM=0 

WIJZER=PEEK(PGM)+PEEK(PGM+1)*256 
IF WIJZER=0 THEN 63340 
REGEL=PEEK(PUNT)+PEEK(PUNT+1)*256 
IF REGEL>62999!THEN 63340 
SOM=0 

FORI=PUNT+2 TO WIJZER-1 
A=PEEK(I) 

IFA=0THENI=WI JZER 
IFA=143THENI=WIJZER:GOTO63260 
IF A=32THEN63260 
SOM=(SOM+A)MOD256 
NEXT 

T S OM=T S OM+ S OM 

PRINT USING "regel :##### - 


63290 

63300 

63310 

63320 

63330 

63340 


###";REGEL,SOM 
PGM=WIJZER:PUNT=WIJZER+2 
A$=INKEY$:IFA$< CHR$(32)THEN63150 
PRINT" RETURN = verder" 

A$=INKEY$:IF A$=CHR$(13)THEN 63150 
GOTO63320 

REM einde check, voor zelf¬ 
test 63180 eruit 
63350 REM lijst op papier over¬ 
al LPRINT ipv PRINT 
63360 PRINT 

63370 PRINT USING"Totaaltelling:######"• 
TSOM 


- 189 

96 

- 185 

- 202 

- 151 

- 103 

- 131 

85 

12 

■ 253 

56 
122 
68 
20 
0 
0 

145 

151 

129 

3279 


63380 END 

regel : 63000 


0 

regel 

: 63200 

regel 

:63010 

- 

0 

regel 

:63210 

regel 

: 63020 

- 

0 

regel 

:63220 

regel 

:63030 

- 

0 

regel 

:63230 

regel 

:63040 

- 

0 

regel 

: 63240 

regel 

:63050 

- 

0 

regel 

: 63250 

regel 

:63060 

- 

0 

regel 

: 63260 

regel 

: 63070 

- 

0 

regel 

: 63270 

regel 

: 63075 

- 

0 

regel 

:63280 

regel 

: 63080 

- 

0 

regel 

:63290 

regel 

:63085 

- 

0 

regel 

: 63300 

regel 

:63090 

- 

16 

regel 

:63310 

regel 

: 63100 

- 

86 

regel 

:63320 

regel 

:63110 

- 

7 

regel 

:63330 

regel 

: 63120 

- 

100 

regel 

:63340 

regel 

:63130 

- 

201 

regel 

:63350 

regel 

:63140 

- 

67 

regel 

:63360 

regel 

:63150 

- 

99 

regel 

:63370 

regel 

:63160 

- 

177 

regel 

:63380 

regel 

regel 

: 63170 
:63190 

- 

189 

239 

Totaaltelling 
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Disk-ID 


H. Heyligers schreef voor ons een programma 
dat het mogeiijk maakt alle gegevens van de dis¬ 
kette te lezen. Hierbij wordt o.a. aangegeven het 
i aantal sectoren, clusters, FAT’s, hoe geformat¬ 
teerd, maar ook het aantal bytes dat er nog vrij is 
op deze disk. Het programma moeten we dus in- 
deien bij de Utilities. (Voor MSX-2) 

10 REM DISK-ID. version 1.2 

20 REM (c)14 sept.1988 

30 REM by H.Heyligers 

40 REM SVI-738 XPRESS 

50 COLOR1,15,15:SCREEN1,2:WIDTH32:KEY- 
OF:DEFUSR=&H69:MSX=PEEK(&H2D) 

60 IFMSX=0THENMS=1ELSEIFMSX=1THENMS=2 

70 CLS 

80 FORT=0TO31 :READA$ : A=VAL (" &H"+A$) 

90 S$=S$+CHR$(A):NEXTT 

100 SPRITE$(0)=S$ 

110 SPRITE$(1)=S$ 

120 PUTSPRITE0,(10,5),1,0 

130 PUTSPRITE1, (230,5) , 1, 1 

140 LOCATE10,1:PRINT"MSX";MS 

150 LOCATE16,1:PRINT"DISK-ID" 

160 LOCATE5,2:PRINT"(C)1988 BY H.HEYLI¬ 
GERS . " 

170 LOCATEO,3:PRINT” — 


180 F0RY=4T017 

190 LOCATEO, Y:PRINT"|"; TAB (31) ; T 
200 NEXT 

210 LOCATEO,18:PRINT" |_ 

_ 1 " 

220 SE=PEEK(&HF351)+256*PEEK(&HF352) 

230 A$=DSKI$(DR,0) 

240 A=PEEK(SE) 

250 IFA= & HEBORA= & HE 9 THENT $ =' 1 MSX-DOS" 

ELSET$="GEEN MSX DOS" 

260 LOCATEl,4:PRINT"TYPE";SPC(11)":";T$ 
270 LOCATEl, 5: PRINT" FORMAT TE D ON : " ,* 

280 FORS=3TO10 
290 PRINTCHR$(PEEK(SE+S)); 

300 NEXT 

310 LOCATEl,6:PRINT"BYTES/SECTOR : " ; 

320 PRINTPEEK(SE+11)+256*PEEK(SE+12) 

330 LOCATEl,7:PRINT"SECT./CLUSTER : " ; 
340 PRINTPEEK(SE+13) 

350 LOCATEl,8:PRINT"GERESERVEERD 
360 PRINTPEEK(SE+14)+256*PEEK(SE+15) 

370 LOCATEl,9:PRINT"AANT. FAT'S 

380 PRINTPEEK(SE+16) 

390 LOCATEl, 10 : PRINT "MAX. AANT . FILES : "; 
400 PRINTPEEK(SE+17)+256*PEEK(SE+18) 

410 LOCATEl,11:PRINT"AANT. SECTOREN : " ; 
420 PRINTPEEK(SE+19)+256*PEEK(SE+20) 

430 LOCATEl,12:PRINT"FOR¬ 

MAAT"; SPC(8);":"; 

440 ID=PEEK(SE+21) 

450 IFID=&HFETHENA$="40T/160KB/5.25" 

460 IFID=&HFFTHENPRINT"40T/320KB/5.25" 
470 IFID=&HFCTHENPRINT"40T/180KB/5.25" 
480 IFID=&HFDTHENPRINT"40T/360KB/5.25" 
490 IFID=&HFATHENPRINT"80T/320KB/3.5" 
500 IFID=&HFBTHENPRINT"80T/640KB/3.5" 
510 IFID=&HF8THENPRINT"80T/360KB/3.5" 
520 IFID=&HF9THENPRINT"80T/720KB/3.5" 


I 

I 

530 LOCATEl, 13 :PRINT"AANT. SECT./FAT:"; 

540 PRINTPEEK(SE+22)+256*PEEK(SE+23) 

550 LOCATEl, 14: PRINT"AANT. SECT./TR.:"; 

560 PRINTPEEK(SE+2 4)+2 5 6*PEEK(SE+2 5) 

570 LOCATEl, 15: PRINT"AANT. ZIJDEN 

: "; I 

580 PRINTPEEK(SE+26)+256*PEEK(SE+27) I 

590 LOCATEl,16:PRINT"VERB.SECTOREN : " ; 

600 PRINTPEEK(SE+2 8)+2 5 6*PEEK(SE+2 9) 

610 LOCATEl, 17: PRINT"AANT.BYTES 

FREE: " ;DSKF (0)*10^4 

620 LOCATEO,19:PRINT"- 


630 LOCATEO, 20 :PRINT"| Nog een dis¬ 

kette j/n | " 

640 LOCATEO,21:PRINT"|_ 


650 LOCATE23,20:PRINT"?";:A$=INPUT$(1) 
660 IFA$="N"ORA$="n”THENA=USR 
(0):GOTO700 

670 IFA$="J"ORA$="j"THENLOCATE1, 

20:PRINT"Diskette in de drive + 
RETURN "; 

680 A$=INPUT$(1) 

690 IFA$OCHR$ (13) THEN680ELSECLS : RE- 
STORE:GOTO50 

700 SCREEN0:WIDTH40:KEYON 
710 DATA DF, A4,84,84,84,84,84,83 
720 DATA 80,8F,90,97,90,D3,90,FF 
730 DATA FA, 25, Al, Al, Al, Al, 21, Cl 
740 DATA 01,Fl,09,E9,09,C9,09,FF 


O 

O 

o 

o 

o 

o 

o 

o 


Disk-ID LISTTEST: 


□ 


regel 

10 

- 

0 

regel 

390 

- 

140 

! o 

regel 

20 

- 

0 

regel 

400 

- 

46 

regel 

30 

- 

0 

regel 

410 

- 

105 

1 

regel 

40 

- 

0 

regel 

420 

- 

48 

1 

regel 

50 

- 

159 

regel 

430 

- 

154 

1 

regel 

60 

- 

217 

regel 

440 

- 

16 


regel 

70 

- 

159 

regel 

450 

- 

17 

o 

regel 

80 

- 

89 

regel 

460 

- 

18 

regel 

90 

- 

6 

regel 

470 

- 

15 

1 

regel 

100 

- 

179 

regel 

480 

- 

16 


regel 

110 

- 

180 

regel 

490 

- 

13 


regel 

120 

- 

222 

regel 

500 

- 

14 

! o 

regel 

130 

- 

188 

regel 

510 

- 

11 

regel 

140 

- 

17 

regel 

520 

- 

12 


regel 

150 

- 

41 

regel 

530 

- 

111 

l 

regel 

160 

- 

149 

regel 

540 

- 

51 

1 

regel 

170 

- 

59 

regel 

550 

- 

105 

1 

regel 

180 

- 

216 

regel 

560 

- 

53 

! o 

regel 

190 

- 

23 

regel 

570 

- 

206 

1 vj 

regel 

200 

- 

131 

regel 

580 

- 

55 

1 

regel 

210 

- 

76 

regel 

590 

- 

121 

1 

regel 

220 

- 

203 

regel 

600 

- 

57 

1 

regel 

230 

- 

98 

regel 

610 

- 

203 

! o 

regel 

240 

- 

175 

regel 

620 

- 

73 

regel 

250 

- 

178 

regel 

630 

- 

181 

i 

regel 

260 

- 

10 

regel 

640 

- 

79 

i 

regel 

270 

- 

243 

regel 

650 

- 

112 

i 

regel 

280 

- 

202 

regel 

660 

- 

70 

i 

regel 

290 

- 

117 

regel 

670 

- 

197 

I o 

regel 

300 

- 

131 

regel 

680 

- 

96 


regel 

310 

- 

55 

regel 

690 

- 

165 

1 

regel 

320 

- 

40 

regel 

700 

- 

130 

1 

regel 

330 

- 

96 

regel 

710 


62 

1 

regel 

340 

- 

29 

regel 

720 

- 

76 

! o 

regel 

35 0 

- 

54 

regel 

730 

- 

69 

regel 

360 

- 

43 

regel 

740 

- 

81 

j 

regel 

370 

- 

91 





i 

regel 

380 

- 

32 

Totaaltelling 
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i 

i 
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Dosfil 


Met dit programma van W. v.d. Kuilen, voor re¬ 
gelmatige lezers zeker geen onbekende, is het 
mogelijk de disk op te laten starten met een keu¬ 
ze menu. Nu is het mogelijk het programma van 
uw keuze snel te laden. Hoe U precies dient te 
handelen wordt in het programma uitgelegd. 


100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 


'*********************************** 

******************************* 

' * 

* 

'* OPSTARTEN .COM/.BAT FILES ON¬ 
DER DISK-BASIC via DOS KEY-BUFF- 
ER * 

'* - 


'* save dit prg. als ' MENU ' op 
uw MSX-DOS disk , en maak onder * 
'* DOS een Autoexec.BAT file met 
COPY CON AUTOEXEC.BAT * 

' * Inhoud BAT-file basic menu * 

' * Vergeet niet : * 


' *- 


' * Nu wordt DOS opgestart met dit 
menu en kunnen .COM/.BAT files * 
' * gestart worden vanuit DISKBA- 
SIC. * 


1988 W.v/d Kuilen * 

'*********************************** 

******************************* 

f 

POKE&HF1C0, 1 :'diskmotor stop 

CLS:COLOR1,3:KEYOFF:WIDTH40:A$= 
STRING$(39,"="):PRINTA$ 

PRINT"MSX-DOS files";SPC(17);"Di¬ 
rectory" :PRINTA$:PRINT 
' * MSX-DOS Progr. menu . (voor¬ 
beeld) 


410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 



1 

1 

280 

290 

f * 

PRINT" 

1. 

WORDSTAR 

7. 

O 

1 

1 

1 

300 

o 

PRINT" 

it 

2. 

dBASE II 

8. 


1 

1 

1 

310 

PRINT" 

3. 

HYDELIDE 

9. 

o 

1 

1 

320 

n 

PRINT" 

ii 

4 . 

FILEDUMP 

10 . 


1 

1 

1 

330 

PRINT" 

5. 


11. 

o 

1 

1 

340 

PRINT" 

6. 


12 . 


1 

1 

1 

350 

360 

MSX-DOS" 

PRINT:PRINTA$ 
A$" 

:A$="" 



370 


380 


390 

400 


( 37x -) 


LOCATE, 20 : PRINT’T "; A$; "~\ " : LOCA- 
TE, 22 : PRINT "L " ; A$; "J " : LOCA¬ 
TE, 21:PRINT'T;SPC(37);"" 

A=DSKF(0) :POKE&HF1C0,1:LOCATE2, 

21:PRINT"Nog";A*1024/"bytes vrij. 
(";A*2;"sectors)" 


LOCATE5,16:INPUT"Laden No.:";A$ 


regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 


IFVAL(A$)ClORVAL(A$)>12 THENLOCATE 
17,16:PRINTSPACE$(4):GOTO400 
ON VAL(A$)GOTO 460,470,480,490, 

500,510,520,530,540,550,560,730 
' * 


' * vul A$ met 
.COM/.DAT 
' * _ 

A$="WORD" 

A$="DBASE" 
A$="HYDELIDE" 
A$="FILEDP" 
A$=" 

A$=" 

A$=" 

A$=" 

A$ = " 

A$ = " 

A$ = " 

f ★ 


naam;zonder 


:GOTO600 

:GOTO600 

GOTO600 

GOTO600 

GOTO600 

GOTO600 

GOTO600 

GOTO600 

GOTO600 

GOTO600 

GOTO600 


:'enzovoort 


' * MSX DOS key-buffer vullen met 
A$ 


CLS:Y=LEN(A$) : 'bepaal 

lengte A$ 

DEFUSR=&H156:A=USR(0):'buffer leeg 
POKE&HF3FA,&H59 :'adres-be- 

ginbuffer 
POKE&HF3FB,&HF4 
I=&HF459:B=(I+Y+l)-&HF400 
POKE&HF3F8,B aanpassen 

eind-adres buffer 
POKE&HF3F9,&HF4 

FOR X=1 TO Y : ' zet A$ 

in buffer 

POKE I+X-l,ASC(MID$(A$,X,1)):NEXT 

POKE I+X-l,13 return 

' * 

' * naar MSX-DOS + auto start . COM 


CLS:POKE&HF34 6,1:CALL SYSTEM 


Dosfile LISTTEST: 


100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 


58 

58 

58 

58 

58 

58 

58 

58 

58 

58 

58 

58 

58 

58 

7 

191 
133 

58 

58 

35 

192 
249 

48 

76 

69 

147 

196 

101 

55 

58 

229 

103 

201 


regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 


430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 


58 

58 

58 

255 

34 

11 

235 

195 

195 

195 

195 

195 

195 

195 

58 

58 

58 

220 

227 

34 

190 

225 

113 

188 

129 

246 

234 

58 

58 

58 

221 


O 


O 


O 


o 


Tot aal te Hing: 74 67 


O 


O 


O 


o 


o 


o 


o 


o 


! O 


o 


o 


! O 


o 


o 
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130 


Dit spel is een voorbeeld wat er allemaal mogelijk 
is met een korte listing. Er verschijnen negen 
blokjes op het scherm. Steeds lichten er één of 
meerdere op. De bedoeling is de juiste volgorde 
aan te geven waarin dit gebeurt. De eerste keer 
zijn het er maar twee, maar als de volgorde goed 
geraden is wordt dit aantal snel verhoogd. Wie 
heeft het beste geheugen en kan dus het verste 
komen.... 

Het is een spel van A. Hendriks uit Heemstede. 

10 'FLITS a.hendriks heemstede 

2 0 KEYOFF:COLOR15,1,1:SCREENO: 

WIDTH40:PRINT"Calculatortoetsen 
zyn zo geplaatst: Tik de cijfers 

in de volgorde van de flitsen” 

:F0RN=1T09:GOSUB7 0:LOCA- 

TEH,V:PRINTN:NEXT:F0RT=1T02 000:NEXT: 

DEFINTA-Z 

30 DIMG(30):FORA=0TO30:G(A)=RND(- 

TIME)*9+1:NEXT:SCREEN2:F0RN=1T09- 
:GOSUB70:GOSUB60:NEXT:FORB= 

1TO30:FORA=OTOB:N=G(A):GOSUB50:NEX- 
TA:DEFUSR=342:X=USR(0):FORA=OTOB 
40 I$=INKEY$:IFI$<"l”ORI$>”9"THEN40EL- 

SEIFVAL(1$)=G(A)THENNEXTA,BELSE 
SCREENO:LOCATE15,10:PRINTB; 

”GOED!”:F0RT=1T02 000:NEXT:ERASEG- 
:GOTO30 

50 GOSUB70:LINE(X+64,200-Y)-(X+95,243- 

Y),N+5,BF:FORT=lTO1000:NEXT:L- 
INE(X+64,200-Y)-(X+95,243-Y),1,BF 
60 LINE(X+64,200-Y)-(X+95,243- 

Y),15,B:RETURN 

70 Y=INT((N+2)/3):X=2-(3*Y- 

N );X=48*X:Y=63*Y:H=X/6+10:V=29- 
Y/8:RETURN 


Flits LISTTEST 


regel : 

10 

58 

regel : 

20 

- 194 

regel : 

30 

- 221 

regel : 

40 

- 190 

regel : 

50 

- 225 


regel : 60 - 217 
regel : 70-15 

Totaaltelling: 1120 


p ree \$ een denkspel waarbij een speelveld en 
een paar schijven de nodige uurtjes nachtrust 
zullen kosten, als u tenminste deze listing van 
dhr. Hendriks uit Heemstede heeft overgetikt. Het 
is zeker de moeite waard. 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 


*********** FREE ************* 
* * 

* een spel van ton hendriks * 

* heemstede * 

* * 

* * 

******************************* 


KEYOFF:COLORl5,1,1:SCREEN0:WIDTH40 
DEFINTA-Z:T=RND(-TIME) 

LOCATEO,5:PRINT”F R E E":PRINT 


140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 


PRINT"Om de beurt zetten jy (wit) 
en ik (rood)de schyf, evenver als 
het veld aangeeft,horizontaal of 
vertikaal m cursortoetsen. Wie 
niet meer kan zetten ver¬ 
liest! ":PRINT 
PRINTTAB(33);”>RETURN" 

I$=INKEY$:IFI$=CHR$(13)THENl90ELSE- 
GOTO150 


'randen en bordveld - 

r 

SCREEN2:OPEN"grp:”AS1 

DIMX (7,7) ,W(4) ,H(4) ,V(4) 

F0RH=2T05:F0RV=2T05 

X(H,V)=RND(1)*2+1 

GOSUB1080 

NEXTV, H 

RESTORE270 

F0RT=1T04:READH(T):READV(T):NEXT 
DATA0, -1,1,0,0,1,-1,0 


'plaats schijf ■ 

r 

H=3:V=3 

KL=15:GOSUB1170 


' zet v wit 
veld? - 


- is er een vry 


S=X(H,V) 

F0RT=1T04 

IFX(H+S*H(T),V+S*V(T))>0THEN460 
NEXT 

GOSUB1420 

GOSUB1340 

GOTO1040 


'wit geeft richting aan - 

t 

I=STICK(0):IFI=0THEN460 
IFIMOD2=0THEN460 
I=INT(1/2)+1 
P=H+S*H(I):Q=V+S*V(I) 

IFX(P,Q)=0THEN460 
KL=8:GOSUB960 

' zet v rood - is er een vry 
veld? - 

S=X(H, V) 

F0RT=1T04 

IFX(H+S*H(T),V+S*V(T))>0THEN650 
NEXT 

GOSUB1420 

GOSUB1340 

GOTO1040 


' rood zoekt beste zet 


S=X (H, V) : X (H, V) =0 
ERASEW:DIMW(4) 

F0RZ=1T04 

P=H+S*H(Z):Q=V+S*V(Z) 

IFX(P,Q) =0THENW (Z)=0:GOTO810 
W(Z)=1 

G=X (P, Q) : X (P, Q) =0 
F0RT=1T04 


O 

O 

O 
O 
O 
O 
O 
O 
O 

O 
O 
O 
O 

O 
O 
i O 

I 

I 

I 

I 

! O 


o ! 
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730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 


M=P+G*H(T):N=Q+G*V(T) 

IFX(M,N) =0THENW(Z) =W(Z)+1:GOTO800 
L—X (M, N) 

F0RF=1T04 

IFX (M+L*H (F) , N+L*V(F) ) >0THENGOTO800 
NEXTF 

W(Z)=1:X(P,Q)=g:GOTO810 
NEXTT:X(P,Q)=g 
NEXTZ:X(H,V)=S 

t 

' bepaal hoogste waarde- 

/ 

S=0:Z=0 
F0RT=1T04 

IFW(T)>STHENS=W(T)•Z=T 

NEXT 

S=X (H, V) 

P=H+S*H(Z):Q=V+S*V(Z) 

KL=15:GOSUB960 
GOTO360 


1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 


FORA=lT05:COLOR1,15,15 
F0RB=1T07 0:NEXTB 
COLOR15,6,6 
FORB=lTO70:NEXTB,A 
COLOR15,1,1 
FORA=lTOl000:NEXT 
RETURN 


'subroutine zet 

r 

GOSUB1280 
X (H, V) =0 
H=P:V=Q 
GOSUB1170 
RETURN 


'subroutine einde spel - 

CLS:ERASEX,W,H,V:GOTO200 

/ 

'subroutine teken veld - 


CL=5+((H+V)MOD2=0) 

X=36*H-16:Y=48*V-96 
LINE(X,Y)-(X+35,Y+47) , CL, BF 
PSET(X+7,Y+20) , CL 
PRINT#1,X(H,V) 

RETURN 

r 

'subroutine teken schyf -_ 


X=36*H+l:Y=48*V-73 
CIRCLE(X,Y) , 18, KL, ,,1.4 
PAINT(X+l, Y+l) , KL 
PSET(X-10,Y-4),KL 
COLOR15+11*(KL=15) 
PRINT#1,X(H,V) 

COLOR15,1,1 
RETURN 

r 

'subroutine wissen schyf _ 

GOSUB1080 

LINE (X, Y) - (X+35, Y+47) , 1, BF 
RETURN 

f 

'subroutine teken kruis -_ 

GOSUB1280 

LINE (X+15, Y+7) - (X+20, Y+40) , KL, BF 
LINE (X+8, Y+15) - (X+27, Y+21) KL BF 
FORT=lTO8000:NEXT 
RETURN 


subroutine flikkeren border 


regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel 
regel 
regel 
regel 


10 
20 
30 
40 
: 50 

60 

: 70 

: 80 
: 90 

: 100 
: 110 
: 120 
: 130 

: 140 

: 150 

: 160 
: 170 

: 180 
: 190 

: 200 
: 210 
: 220 
: 230 

: 240 

: 250 

: 260 

: 270 

: 280 
: 290 

: 300 

: 310 

320 
330 
340 
350 
360 ■ 

370 - 

380 - 

390 - 

400 - 

410 - 

420 - 

430 - 

440 - 

450 - 

460 - 

470 - 

480 - 

490 - 

500 - 

510 - 

520 - 

530 - 

540 - 

550 - 

560 - 

570 - 

580 - 

590 - 

600 - 
610 - 
620 - 
630 - 

640 - 

650 - 

660 - 
670 - 

680 - 
690 - 

700 - 

710 - 

720 - 

730 - 

740 - 

750 - 


Free LISTTEST: 


58 

58 

58 

58 

58 

58 

58 

58 

58 

- 105 

75 

39 

- 230 

98 

17 

58 

58 

58 

78 

54 

- 190 

85 

- 215 

77 

- 169 

- 236 

- 150 

58 

58 

58 

- 222 

15 

58 

58 

58 

■ 181 
197 
8 

131 

44 

220 

171 

58 

58 

58 

254 

151 

96 

151 

182 

55 

58 

58 

58 

181 

197 

199 

131 

44 

220 

171 

58 

58 

58 

98 

121 

203 

185 

219 

3 

92 

197 

146 

159 

171 


regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel ; 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 


760 
770 
780 
790 
800 
810 
820 
830 
840 
: 850 

: 860 
: 870 

: 880 
: 890 

: 900 

: 910 

: 920 

: 930 

: 94 0 

: 950 

: 960 

: 970 

: 98 0 

990 

: 1000 
: 1010 
: 1020 
: 1030 
: 1040 
: 1050 
: 10 60 
: 1070 
: 1080 
: 1090 
: 1100 
: 1110 - 
: 1120 - 
: 1130 - 

1140 - 

1150 - 

1160 - 
1170 - 

1180 - 
1190 - 

1200 - 
1210 - 
1220 - 
1230 - 

1240 - 

1250 - 

1260 - 
1270 - 

1280 - 
1290 - 

1300 - 

1310 - 

1320 - 

1330 - 

1340 - 

1350 - 

1360 - 

1370 - 

1380 - 

1390 - 

1400 - 

1410 - 

1420 - 

1430 - 

1440 - 

1450 - 

1460 - 

1470 - 

1480 - 


- 183 

- 154 

- 201 

- 231 

- 189 

- 204 

58 

58 

58 

- 231 

- 197 

- 183 

- 131 

- 181 

- 185 

60 

0 

58 

58 

58 

- 155 

- 115 

87 

49 

- 142 

58 

58 

58 

- 232 

58 

58 

58 

- 196 

49 

• 190 

• 200 
101 
142 

58 

58 

58 

12 

240 

182 

197 

206 

101 

87 

142 

58 

58 

58 

215 

65 

142 

58 

58 

58 

155 

200 

189 

232 

142 

58 

58 

58 

80 

242 

97 

95 

87 

97 

142 


Totaaltelling: 16926 
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Muziek 


Dit programma bied de mogelijkheid muziek te 
maken door middel van het één voor één invullen 
| van de drie deelintructies (a,b en c) van de MSX. 
Deze kunnen voortdurend veranderd worden en 
onafhankelijk, achter elkaar of tegelijkertijd afge¬ 
speeld worden. Het programma vraagt voortdu¬ 
rend de meest voor de hand liggende informatie 
en plaatst deze in een diagram op het scherm, 
zodat u ook ziet wat er gespeeld wordt. Thomas 
1 van Wissen uit Amsterdam heeft er naar ge¬ 
streefd een optimaal en gebruiksvriendelijk 
i programma te schrijven. 

i De werking 

Het programma begint met het vragen van de ge- 
] gevens voor de eerste deelinstructie. Als dit ge¬ 
beurd is word deze automatisch gespeeld. Dan 
verschijnt de vraag “iets veranderen ?” 

Nu zijn er een aantal mogelijkheden: 
n - het apparaat speelt nogmaals dezelfde 
instructie (n.b. even vaak als de return 
toets is ingedrukt!) 

ij- De vraag ‘Wat’ verschijnt en u typt het 

corresponderende nummer in (zie scherm) 
(b.v. 5- de golfvorm). 

Nu kunt u het nieuwe gegeven invoeren; druk op 
j enter en het apparaat speelt de vernieuwde in¬ 
structie en plaatst het nieuwe gegeven in het dia- 
i gram. 

next - het programma gaat door met de volgende 
instructie en begint de gegevens hiervoor 
te vragen (als boven). 

ok - speelt de betreffende deelinstructie continu, 
(stoppen: druk spatiebalk tot cursor ver¬ 
schijnt, het apparaat speelt nog even door). 
i go - speelt de deelinstructies achter elkaar 
continu (stoppemzie ok) 

ko - speelt de deelintructies tegelijkertijd continu 
(stoppemzie ok). 
pa - (pb.pc) speelt a (b, c) 
va - vb,vc) verander a (b, c). Een sterretje in 
het diagram geeft aan met welke instructie 
(a,b of c) u bezig bent. 

koab - (koac,kobc) speelt betreffende deelinstruc¬ 
ties tegelijkertijd en continu (stoppemzie ok). 
reset - wist alle gegevens van het scherm, het 
programma begint opnieuw. 

REM muziek 

REM ======================== 

REM === thornas van wissen === 

REM ========================= 

CLEAR 

COLOR 1,15 
KEY OFF 
CLS 

LOCATE 0,0 

PRINT " a 

b c" 


110 

PRINT 



120 

PRINT 

"(1)stemmen == 

_11 

= 

130 

PRINT 

"(2)oktaaf == 

_»r 

= 

140 

PRINT 

"(3)tempo = 

= 

150 

PRINT 

"(4)lengte == 

= 

160 

PRINT 

"(5)golfvorm == 

_11 

= 

170 

PRINT 

"(6)cyclus == 

_ TT 

= 

180 

PRINT 

"(7)r/g/rg 

_tl 

= 

190 

PRINT 



200 

PRINT 

"(8)" 


210 

PRINT 



220 

PRINT 




\\. 


230 

240 

250 

PRINT "(8)" 

PRINT 

PRINT 


260 

_ !i 

PRINT "(8)" 


270 

PRINT 


280 

PRINT 


290 

1=1+1 


300 

E=E+1 


310 

IF E>3 THEN E=3 


320 

IF I>3 THEN 1=3 


330 

LOCATE 15,2 


340 

IF 1=1 THEN PRINT " **= 

_ —11 


350 

IF 1=2 THEN PRINT " = 

★ *= =" 


360 

IF 1=3 THEN PRINT " 

= **=" 


370 

IF JJ=2 THEN GOTO 1170 

w 

380 

IF JJ=2 THEN LOCATE 0,21 ELSE 
CATE 0,19 

LO- 

390 

PRINT " 


400 

IF JJ=2 THEN LOCATE 0,21 ELSE 
CATE 0,19 

LO- 

410 

INPUT "oktaaf (1-8) ";P$(I) 


420 

P (I) =VAL (P $ (I) ) 


430 

IF P(I)>0 AND P (I)<9 THEN GOTO 

i 450 

440 

GOTO 380 


450 

LOCATE (1*7+8),3rPRINT P(I) 


460 

IF JJ=2 THEN GOTO 1170 


470 

IF JJ=2 THEN LOCATE 0,21 ELSE 
CATE 0,19 

LO- 

480 

PRINT " 


490 

IF JJ=2 THEN LOCATE 0,21 ELSE 
CATE 0,19 

LO- 

500 

INPUT "tempo (32-255) ";Q$(I) 


510 

Q (I) =VAL (Q$ (I) ) 



10 

20 

30 

40 

50 

60 

70 

80 

90 

100 


I 

I 

I 
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520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 


860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 


IF Q( I )>31 AND Q(I)<256 THEN GOTO 
540 

GOTO 470 

LOCATE (1*7+8),4:PRINT Q(I) 

IF JJ=2 THEN GOTO 1170 
IF JJ=2 THEN LOCATE 0,21 ELSE LO¬ 
CATE 0,19 
PRINT " 

IF JJ=2 THEN LOCATE 0,21 ELSE LO¬ 
CATE 0,19 

INPUT "lengte (1-64) ";R$(I) 

R(I)=VAL(R$(I)) 

- R < 1 > > ° AND R (T) <65 THEN GOTO 
GOTO 560 

LOCATE (1*7+8),5:PRINT R(I) 

IF JJ=2 THEN GOTO 1170 

IF JJ=2 THEN LOCATE 0,21 ELSE LO¬ 
CATE 0,19 
PRINT " 

IF JJ=2 THEN LOCATE 0,21 ELSE LO¬ 
CATE 0,19 

INPUT "golfvorm (0-15)";Y$(I) 
Y(I)=VAL(Y$(I)) 

IF Y$(I)="” THEN GOTO 650 

IF ASC(Y$(I))=48 AND LEN(Y$(I))=1 

THEN GOTO 740 

IF Y(I)>0 AND Y(I)<16 THEN GOTO 
740 

GOTO 650 

LOCATE (1*7+8),6:PRINT Y(I) 

IF JJ=2 THEN GOTO 1170 
IF JJ=2 THEN LOCATE 0,21 ELSE LO¬ 
CATE 0,19 
PRINT " 

IF JJ=2 THEN LOCATE 0,21 ELSE LO¬ 
CATE 0,19 

INPUT "cyclus (1-32767)V$(I) 

V(I)=VAL(V$(I)) 

IF V(I)>0 AND V(I)<32768! THEN 
GOTO 830 
GOTO 760 

LOCATE (1*7+8),7:PRINT SPACE$ (6- 
LEN(V$(I))) ; V $ (I) 

IF JJ=2 THEN GOTO 1170 
IF JJ=2 THEN LOCATE 0,21 ELSE LO¬ 
CATE 0,19 
PRINT" 


IF JJ=2 THEN LOCATE 0,21 ELSE LO¬ 
CATE 0,19 

INPUT "ruis/geluid rg ";W$(I) 

IF W$ (I)= "r " OR W$(I)="g" OR 
W$(I)="rg" THEN GOTO 910 
GOTO 850 

LOCATE (1*7+8),8:PRINT W$(I);" " 

IF W$ (I) = M r ,f THEN SOUND 7,7 
IF W$ (I)= M g M THEN SOUND 7, 56 
IF W$ (I)="rg"THEN SOUND 7,0 
IF JJ=2 THEN GOTO 1170 
IF JJ=2 THEN LOCATE 0,21 ELSE LO¬ 
CATE 0,19 
PRINT " 


980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 


1080 

1090 

1100 


IF JJ—2 THEN LOCATE 0,21 ELSE LO¬ 
CATE 0,19 

INPUT "de noten";Z$(I) 

TT=LEN(Z$(I) ) 

FOR U=1 TO TT 
W=ASC (MID$(Z$(I),U)) 

IF U=1 AND W=114 THEN GOTO 1070 
IF U=1 AND W>96 AND W<104 THEN 
GOTO 1070 

IF U>1 THEN GOTO 1070 
GOTO 960 

IF (W>96 AND W<104) OR W=35 OR 
W=450R W=46 OR W=114 OR(W>47 AND 
W<58) THEN GOTO 1090 
GOTO 960 
NEXT U 

LOCATE 4, (1*3+7) :PRINT " 


1110 LOCATE 4, (1*3+7) :PRINT Z$ (I) 
1120 IF JJ=2 THEN LOCATE 0,21:PRINT" 


1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 


ï?7iÏÏu>! • t " q ‘ 1 ’ ’’ 1-1111 ' (1 ’ ‘ 

- t ' q<31 ;1 ” E<3 ’ ;s - y<31 

JJ=2 

IF X=1 THEN PLAY A$ 

IF 1=2 THEN PIAY B$ 

IF 1=3 THEN PIAY C$ 

LOCATE 0,19:PRINT " 

PRINT 

PRINT 

PRINT 

LOCATE 0,19 

INPUT "iets veranderen (j/n)"-D$ 

IF D$=”n" THEN GOTO 1170 
IF D$="next" THEN GOTO 1590 
IF D$="ok" THEN GOSUB 1650 
IF D$="ko" THEN GOSUB 1710 
IF D$="koab" THEN GOSUB 1930 
IF D$="koac” THEN GOSUB 1980 
IF D$="kobc" THEN GOSUB 2030 
IF D$="pa" THEN GOSUB 1850 
IF D$="pb" THEN GOSUB 1870 
IF D$="pc" THEN GOSUB 1900 
IF D$="go" THEN GOSUB 1770 
IF D$="j" THEN GOTO 1460 
IF D$="va" THEN 1=1:GOTO 1440 
IF D$="vb" THEN 1=2:GOTO 1440 
IF D$="vc" THEN 1=3:GOTO 1440 
IF D$="reset" THEN GOTO 50 
IF I>E THEN I=E 
GOTO 1200 

IF I>E THEN I=E :GOTO 1200 
GOTO 330 

LOCATE 0,20:PRINT " 


1470 LOCATE 0,20 
1480 INPUT "wat ";G$ 

1490 G=VAL(G$) 

1500 IF G<2 OR G>8 THEN GOTO 1460 
1510 IF G=2 THEN GOTO 380 
1520 IF G=3 THEN GOTO 470 
1530 IF G=4 THEN GOTO 560 
1540 IF G=5 THEN GOTO 650 


O 


o 
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1550 

IF G=6 THEN 

GOTO 760 

1560 

IF G=7 THEN 

GOTO 850 

1570 

IF G=8 THEN 

GOTO 960 

1580 

GOTO 1460 


1590 

IF E=3 THEN 

GOTO 1200 

1600 

JJ=0 


1610 

I=E+1 


1620 

LOCATE 0,20: 

\\ 

PRINT " 

1630 

LOCATE 0,21: 

w 

PRINT " 

1640 

GOTO 300 


1650 

IF 1=1 THEN 

PLAY A$ 

1660 

IF 1=2 THEN 

PLAY B$ 

1670 

IF 1=3 THEN 

PLAY C$ 

1680 

K$=INKEY$ 


1690 

IF K$="" THEN GOTO 1650 

1700 

RETURN 


1710 

IF E=1 THEN 

PLAY A$ 

1720 

IF E=2 THEN 

PLAY A$,B$ 

1730 

IF E=3 THEN 

PLAY A$,B$,C$ 

1740 

K$=INKEY$ 


1750 

IF K$="" THEN GOTO 1710 

1760 

RETURN 


1770 

PLAY A$ 


1780 

IF E=1 THEN 

GOTO 1820 

1790 

PLAY B$ 


1800 

IF E=2 THEN 

GOTO 1820 

1810 

PLAY C$ 


1820 

K$=INKEY$ 


1830 

IF K$="" THEN GOTO 1770 

1840 

RETURN 


1850 

PLAY A$ 


1860 

RETURN 


1870 

IF E<2 THEN 

RETURN 

1880 

PLAY B$ 


1890 

RETURN 


1900 

IF E<3 THEN 

RETURN 

1910 

PLAY C$ 


1920 

RETURN 


1930 

IF E<2 THEN 

RETURN 

1940 

PLAY A$,B$ 


1950 

K$=INKEY$ 


1960 

IF K$="" THEN GOTO 1940 

1970 

RETURN 


1980 

IF E<3 THEN 

RETURN 

1990 

PLAY A$,C$ 


2000 

K$=INKEY$ 


2010 

IF K$="" THEN GOTO 1990 

2020 

RETURN 


2030 

IF E<3 THEN 

RETURN 

2040 

PLAY B$,C$ 


2050 

K$=INKEY$ 


2060 

IF K$="" THEN GOTO 2040 

2070 

RETURN 
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0 
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- 

40 
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- 
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- 

70 
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- 

38 
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- 
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: 1860 

- 
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70 
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- 

89 

regel 

: 1900 

- 
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- 
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Piano 


Met dit programma kun je muzieknoten uit je 
MSX computer toveren. Je hoeft daarbij slechts 
één toets aan te raken, die overeen komt met 
een bepaalde toonhoogte. Het programma is be- 
doeld wat met geluid te kunnen experimenteren 
en om wat melodietjes te kunnen uitproberen. 
Het programma is geheel in Bsaic en benut 
slechts 1 kanaal van de PSG. Je kunt d.m.v.de 
cursortoetsen de instellingen veranderen. Een 
simpele metronoom is ingebouwd. Daarbij hoor je 
steeds een zachte tik en het CAPS/LOCK lampje 
knippert. De functie van de spatiebalk is afhanke¬ 
lijk van de instelling. Als je met de cursortoetsen 
de noot probeert te veranderen, dan zie je de 
toonfrequentie verschijnen. De golffrequentie kun 
je uitrekenen met de formule: f=6991.3 / lengte 
golf. Onder de functietoetsen zijn een paar sim¬ 
pele toonreeksen opgenomen. De initialisatie 
duurt enige tijd doordat alle noten in het geheu¬ 
gen moeten worden opgenomen. Tijdens dit pro¬ 
ces kun je mooi even het volume bijstellen. Veel 
plezier met dit programma. Het geheel is 'gecom¬ 
poneerd’ door N. Hoogervorst uit Ter Aar. 
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310 


piano 

(c) 1988 by 

Nico Hoogervorst 


CLEAR 2000,&HBFFF 
GOSUB 500:'intialisatie 

t 

' -hoofdlus- 

IF STRIG(O) THEN IF S=7 OR S=9 
THEN SOUND 13,S:IF R=32 THEN 120 
ELSE SOUND 7,55 ELSE SOUND 8 0 
A=INKEY$ 

IF A="" OR A=" " THEN 110 
I=INSTR(P,A) /2 
IF I THEN N=I+H-1 ELSE 230 
SOUND 1,S(N,1):SOUND 0,S(N,0) 

IF S=7 OR S=9 OR R=32 THEN SOUND 
7,62 ELSE SOUND 7,54 
SOUND 13,S:SOUND 8,16+(S=6) 

A=P(N MOD 12) 

LOCATE 23,11:PRINT" "A" " 

PUT SPRITE 0, (FNX,FNY) , 8 
GOTO 120 

I=ASC (A)-28 : IF ICO OR I>3 THEN 120 

IF I>1 THEN C=C- (1=3 AND 

C<6) + (1=2 AND Ol) :VPOKE 

&H1B04,79+C*8 ELSE ON C GOSUB 

330,350,370,400,430,460 

GOTO 120 

r 

' -Interval- 

IF VPEEK(&H1B07)=12 THEN OUT 
&HAA,186:VPOKE &H1B07,13 ELSE OUT 
&HAA,122:VPOKE &H1B07,12 
RETURN 

' -stop+ctrl- 

I=USR(0) :COLOR 11,1:SCREEN 0 : KEY 
ON:ON ERROR GOTO:END 


320 

330 


340 

350 


360 

370 

380 

390 

400 


' -noot- 

LOCATE 23,11:PRINTU- 
SING"##### M ;1118 

60.78#/(S(N,0)+256*S(N,1)):SOUND 
13,S:RETURN 
' -octaaf- 

** = H\12 ; H=H+ (1=1 AND H>0) - (1=0 AND 
H<6):LOCATE 26,12:PRINT 
H+1:H=H*12:RETURN 
-golfvorm-patroon- 
S=S-(1=0) + (1=1) : IF S<6 THEN S=14 
ELSE IF S>14 THEN S=6 
LOCATE 22,13:PRINT G(S-6):SOUND 
13,S:SOUND 8,16+(S=6):RETURN 
-lengte golf- 

IF 1=1 AND M>1 THEN M=(M-.9)/l.l 
ELSE IF 1=0 AND M<59578! THEN 


O 


O 


! O 


O 



M=M*1.1+.9 

! o 

410 

M=INT(M):LOCATE 23,14:PRINTU- 


SING"#####";M:SOUND 12,FNM1:SOUND 

11, FNM0 :RETURN 

1 

1 

l 

420 

' -ruisfrequentie- 

! o 

i 

i 

i 

i 

430 

R=R-(I=1 AND R<32)+(1=0 AND 

R>1):LOCATE 22,15:IF R=32 THEN 

PRINT” geen":SOUND 8,0:SOUND 

7,62 ELSE PRINTU- 


SING”######";111860.78#/R:SOUND 

7,55 .-SOUND 8,16+ (S=6) 

j o 

440 

SOUND 6,R:RETURN 

i 

1 

450 

' -tempo- 

i 

460 

T=T+(1=0 AND T>1)-(1=1 AND 

T<76):LOCATE 24,16:IF T=76 THEN 
INTERVAL OFF:PRINT"geen”:OUT 
&HAA,122:VPOKE &H1B07,12 ELSE 
PRINTUSING”####”;3000/T : ON INTER¬ 

\ o 

1 o 


VALE GOSUB 280:INTERVALON 

470 

RETURN 

1 

480 

r 

1 

1 

490 

' -initialisatie- 

1 

1 

500 

TROFF:KEY OFF:SCREEN 1,,0:COLOR 

1,1,1:WIDTH 

32:BEEP:PLAY”T255V15L64" 

1 o 

1 

1 

510 

DEFINT B-Z:DEFSNG M,V:DEFSTR 

1 

1 

520 

A,D,G,P 

DIM G(9),P(11) ,S (100,1) 

! o 

530 

DEF USR0=&H3E:'functietoetsen ne¬ 

i 

i 

540 

men hun oude waarden aan 

i 

DEF FNM0=256*(M/256-INT(M/256)) 

1 o 

550 

DEF FNMl=M/256 

560 

DEF FNX=82+(I-(I>5)-(I>12)-(I>17)- 

1 

1 


(I>24)-(I>31))*4 

1 

570 

DEF FNY=63-LEN(A)*14 

1 

580 

ON STOP GOSUB 310: STOP ON 

! ° 

590 

ON ERROR GOTO 310 

600 

' -karakters- 

1 

I 

610 

FOR V=28*8+BASE(7) TO 

1 

I 

620 

30*8+BASE(7)+7 

1 O 

READ D:VPOKE V,VAL("&H”+D) 

630 

NEXT 

1 

640 

FOR V=203*8+BASE (7) TO 

1 

1 


206*8+BASE(7)+7 

1 o 

650 

READ D:VPOKE V,VAL(”&H"+D) 

660 

NEXT 

1 

670 

FOR V=BASE(7) TO BASE(7)+7 

1 

1 

680 

VPOKE 31*8+V,&H7C 

1 

690 

VPOKE 202*8+V,&HFF 

! o 

700 

VPOKE 254*8+V,&HFF 

710 

NEXT 

1 
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720 FOR V=BASE (7) +4 TO BASE (7)+7 
730 VPOKE 211*8+V,16 
740 NEXT 

750 ' -scherm indeling- 

760 PRINT CHR$(11)STRING$(128,219) 

STRING$(195,254)SPC(28)STRING$(3,254 
)CHR$(11); 

770 FOR L=1 TO 8 

780 READ D:LOCATE 5:PRINT D 

7 90 NEXT 

800 LOCATE 2,11 

810 FOR L=1 TO 6 

820 READ D:PRINT CHR$(202)CHR$(32)D; 

:LOCATE 21:PRINT":"SPC(9) 

STRING$(3,254); 

830 NEXT 

840 PRINT CHR$(202)SPC(28)STRING$ 

(3,254) STRING$ (28,202) STRING$ (161,25 
4); 

850 VPOKE 24*32+BASE(5)-1,254 
860 ' -kleuren tabel- 

870 COLOR 4,7 
880 VPOKE BASE(6)+ 2,&H1F 
890 VPOKE BASE(6)+ 3,&H1F 
900 VPOKE BASE(6)+24,&H1F 
910 VPOKE BASE(6)+26,&H1F 
920 VPOKE BASE(6)+27,&H1F 
930 VPOKE BASE(6)+31,&H87 
940 ' -golfvorm- 

950 FOR L=0 TO 8: READ G (L) : NEXT 
960 ' -noot- 

970 FOR L=0 TO 11: READ P(L):NEXT 
980 ' -sprites- 

990 A="" 

1000 FOR L=0 TO 7 

1010 READ D:A=A+CHR$(VAL("&H "+D)) 

1020 NEXT 

1030 SPRITE$(0)=A:A="" 

1040 FOR L=0 TO 7 

1050 READ D : A=A+CHR$ (VAL(" &H"+D) ) 

10 60 NEXT 

1070 SPRITE$ (1)=A: A="" 

1080 PUT SPRITE 1, (232,87),12 
1090 ' -sound toon- 

1100 FOR L=1 TO 96 
1110 PLAY"N=L;" 

1120 IF PLAY(l) THEN 1120 
1130 OUT &HA0,0:S(L,0)=INP(&HA2):OUT 
&HA0,1:S(L,1)=INP(&HA2) 

1140 NEXT 

1150 S(0,0)=92:S(0,1)=13 

1160 S(97,0)=12:S(98,0)=12:S(99,0)=11:S(1 

00 , 0)=10 

1170 ' -toetsen- 

1180 READ P 
1190 FOR L=1 TO 10 
1200 READ D : KEY L, D 
1210 NEXT 

1220 ' -begininstelling- 

1230 D="":V=0:H=24:S=9:M=8 660:R=32: C=1 :T= 

76:N=64:BEEP 

1240 1=3:GOSUB 350:GOSUB 370:GOSUB 

400:GOSUB 430:GOSUB 460 
1250 IF INKEY$<>"" THEN 1250 
1260 RETURN 
1270 ' -data- 

1280 DATA 00,33,33,3F,7F,6D,6D,00 
1290 DATA 00,1F,20,3C,9E,82,FC,00 


1300 DATA 01,CD,49,31,31,49,CD,01 
1310 DATA 00,00,00,00,00,00,FF,00 
1320 DATA FF,FF,FF,FF,FF,FF,FF,00 
1330 DATA 01,03,07,OF,1F,3F,FF,00 
1340 DATA 80,C0,E0,F0,F8,FC,FF,00 
1350 DATA" [GRAPH/SHIFT F] [21x GRAPH 
I][GRAPH/SHIFT H]" 

1360 DATA” [GRAPH/SHIFT K]MSX[16x GRAPH 
P][GRAPH K]" 

1370 DATA"[GRAPH/SHIFT K] [21x GRAHP 
P] [GRAPH K] " 

1380 DATA" [GRAPH/SHIFT K] [21x GRAPH 

U] [GRAPH K] " 

1390 DATA" [GRAPH/SHIFT K] [4x GRAPH 
P][GRAPH K][[2xGRAPH/SHIFT - 
][GRAPH/SHIFT \][3xGRAPH/SHIFT - 
] [GRAP/SHIFT \] [2x GRAPH/SHIFT - 
] [GRAPH/SHIFT \] [3x GRAPH/SHIFT - 
][GRAPH/SHIFT \][2xGRAPH/SHIFT - 
][GRAPH/SHIFT \]" 

1400 DATA" [GRAPH/SHIFT-K] [4x GRAPH 

P] [GRAPH K][[2xGRAPH/SHIFT - 

][GRAPH/SHIFT \][3xGRAPH/SHIFT - 
] [GRAP/SHIFT \] [2x GRAPH/SHIFT - 
] [GRAPH/SHIFT \] [3x GRAPH/SHIFT - 
][GRAPH/SHIFT \][2xGRAPH/SHIFT - 
][GRAPH/SHIFT \] " 

1410 DATA" [GRAPH/SHIFT V] [4x GRAPH/SHIF- 
TI ][GRAPH/SHIFT N][17x 
GRAPH/SHIFT\]" 

1420 DATA"[5x GRAPH/SHIFT A] [GRAPH 

V] [16x GRAPH -] [GRAPH N] " 

1430 DATA Noot,Octaaf,Golfvorm-pa- 

troon,Lengte golf,Ruisfrequen¬ 
tie, Tempo 

1440 DATA"[6x GRAPH Q]","[GRAPH W][6x 
GRAPH/SHIFT Q]","[6x GRAPH/SHIFT 
E]","[GRAPH/SHIFT E][5x 
GRAPH/SHIFT Q]","[GRAPH/SHIFT 
E][GRAPH E][GRAPH/SHIFT E][GRAPH¬ 
EI [GRAPH/SHIFT E][GRAPH 
E][GRAPH/SHIFT E][GRAPH 
E]","[GRAPH/SHIFT E][5x GRAPH 

Q] ","[6X GRAPH E n ","[GRAPH E][5x 
GRAPH Q] " t " [GRAlfl E] [GRAPH/SHIFT 
E][GRAPH-E][GRAPH/SHIFT E][GRAPH 
E][GRAPH/SHIFT E] 

1450 DATA C,C#,D,D#,E,F,F#,G,G#,A,A#,B 
1460 DATA 20,20,20,20,20,20,EO,CO 
1470 DATA 10,30,60,FF,FF,60,30,10 
1480 DATA" Z z S sXxDdCcVvGgBbHhNnJjMmQq@ 
2Ww#3EeRr%5Tt /v 6Yy&7UuIi (900) OPp" 

1490 DATA"ZXCVBNMQWERTYUI","IUY- 

TREWQMNBVCXZ","Q2W3ER5T6Y7U","U7Y6T5 
RE3W2Q","Z SXDCVGBHNJM", 
"MJNHBGVCDXSZ","ZXCVBNM","CCZZCCCZ", 
"QWEQ QWEQ ERT", "TYTREQ QBQ" 
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regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel : 
regel 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 
regel : 


: 10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 


58 

58 

58 

58 

58 

58 

123 

4 

58 

58 

79 

28 

192 

50 

64 

156 

214 

92 

53 

216 

230 


131 

58 

152 


regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 


770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
92 0 
930 
940 
950 
960 
970 


193 

2 

131 

49 

191 
38 

131 

192 
77 
58 
22 
82 
83 

102 

104 

105 
213 

58 

34 

58 

44 


- 

15 

regel 

: 980 

- 

58 

- 

44 

regel 

: 990 

- 

116 

- 

71 

regel 

: 1000 

- 

191 

— 

15 

regel 

: 1010 

- 

24 

- 

58 

regel 

: 1020 

- 

131 

- 

58 

regel 

: 1030 

- 

43 

- 

215 

regel 

: 1040 

- 

191 

- 

142 

regel 

: 1050 

- 

24 

- 

58 

regel 

: 1060 

- 

131 

- 

42 

regel 

: 1070 

- 

44 

- 

58 

regel 

: 1080 

- 

217 

- 

135 

regel 

: 1090 

- 

58 

- 

58 

regel 

: 1100 

- 

23 

- 

16 

regel 

: 1110 

- 

23 

- 

58 

regel 

: 1120 

- 

251 

- 

252 

regel 

: 1130 

- 

72 

- 

98 

regel 

: 1140 

- 

131 

- 

58 

regel 

: 1150 

- 

132 

- 

130 

regel 

: 1160 

- 

29 

- 

17 

regel 

: 1170 

- 

58 

- 

58 

regel 

: 1180 

- 

215 

- 

8 

regel 

: 1190 

- 

193 

- 

33 

regel : 

: 1200 

- 

141 

“ 

58 

regel : 

: 1210 

- 

131 

- 

34 

regel : 

: 1220 

- 

58 

- 

142 

regel : 

: 1230 

- 

92 

- 

58 

regel : 

: 1240 

- 

84 

- 

58 

regel : 

: 1250 

- 

103 

- 

23 

regel : 

: 1260 

- 

142 

- 

117 

regel : 

1270 

- 

58 

- 

160 

regel : 

1280 

- 

46 

- 

190 

regel : 

1290 

- 

56 

- 

253 

regel : 

1300 

- 

42 

- 

63 

regel : 

1310 

- 

228 

“ 

184 

regel : 

1320 

- 

236 

- 

48 

regel : 

1330 

- 

53 

- 

86 

regel : 

1340 

- 

113 

- 

9 

regel : 

1350 

- 

126 

- 

58 

regel : 

1360 

- 

3 

- 

95 

regel : 

1370 

- 

122 

- 

24 

regel : 

1380 

- 

67 

- 

131 

regel : 

1390 

- 

34 

- 

190 

regel : 

1400 

- 

34 

- 

24 

regel : 

1410 

- 

179 

“ 

131 

regel : 

1420 

- 

149 

- 

13 

regel : 

1430 

- 

177 

- 

251 

regel : 

1440 

- 

112 

- 

41 

regel : 

1450 

- 

72 

“ 

93 

regel : 

1460 

- 

236 

- 

131 

regel : 

1470 

- 

36 

- 

19 

regel : 

1480 

- 

215 

- 

70 

regel : 

1490 

- 

149 


Totaaltelling: 14373 


Rekendoolhof 


Slechts één opdracht bevat dit programma: pro¬ 
beer uit het doolhof te komen, dit geeft de maker 
van dit programma, Michiel Visser ons. Dit lijkt 
veel makkelijker dan het is. Probeer het maar 
eens, je moet dan wel kunnen rekenen. 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 


'******************************** 
' ** 


* * 

* 

* 

* 

* 

* 

* 

* 

* 


'* REKENDOOLHOF 
' * 

' * door: Michiel Visser 
• * 

' * 

' * 

' * Apeldoorn 

'* * 

' ** ** 

'******************************** 
OPEN"GRP:"AS#1 
GOSUB 4040:' MENU 
CLEAR:R=RND(-TIME) 

COLOR 8,1,1 

SCREEN 1:KEY OFF 

JN=1:'JOYSTICKNR 

DIM KA(96),DE(96,4),SO(96) 

LOCATE 3,10:PRINT"ROUTE AAN HET 
UITZETTEN" 

LOCATE 7,13:PRINT"EVEN GEDULD AUB" 
GOSUB 340:' ROUTE UITZETTEN 
GOSUB 680:' REST V/D DEUREN 
GOSUB 1000:' SOMMEN PLAATSEN 
SCREEN 2,2:DEFUSR=&H41:A=US R(0) 
OPEN"GRP:"AS#1:R=RND(-TIME) 

PSET(50,80),1:PRINT#1,"SPRITES AAN 
HET LEZEN" 

PSET(80,110),1:PRINT#1,"EVEN GE 
DULD AUB” 

DEFUSR=&H4 4:A=USR(0) 

GOSUB 1120:'SPRITES LEZEN 
TIME=0 

GOTO 1230:'HOOFDROUTINE 

9 

' ROUTE UITZETTEN 
VE=1 

RI=INT (RND (1) *3+1) 

IF VE>90 THEN RI=1 
IF RIOl THEN 490 
FOR 1=6 TO 90 STEP 6 
IF VE=I THEN 380 
NEXT I 

IF KA (VE+1) =1 THEN 380 

DE(VE+1,3)=1 

GOSUB 630 

VE=VE+1 

GOTO 660 

IF RI<>2 THEN 550 

IF KA (VE+6)=1 THEN 380 

DE (VE+6,4)=1 

GOSUB 630 

VE=VE+6 

GOTO 660 

FOR 1=1 TO 91 STEP 6 
IF VE=I THEN 380 
NEXT I 


O 
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580 IF KA(VE-l) =1 THEN 380 

590 DE(VE-1,1)=1 

600 GOSUB 630 

610 VE=VE-1 

620 GOTO 660 

630 KA(VE)=1 

640 DE(VE,RI)=1 

650 RETURN 

660 IF VE=96 THEN RETURN 
670 GOTO 380 
680 

690 ' REST V/D DEUREN BEPALEN 

700 

710 FOR 1=1 TO 6 
720 DE(1,4)=-l 
730 NEXT I 

740 FOR 1=6 TO 90 STEP 6 
750 DE(I,1)=-1 

760 NEXT I 

770 FOR 1=1 TO 91 STEP 6 

780 DE(1,3)=-l 

790 NEXT I 

800 FOR 1=91 TO 96 

810 DE(1,2)=-l 

820 NEXT I 

830 DE(96,1)=1 

840 FOR 1=1 TO 96 

850 FOR P=1 TO 4 

860 IF DE (I, P) <>0 THEN 970 

870 MO=INT(RND(1)*8+1) 

880 IF MOOI THEN 970 ELSE DE(I,P)=1 
ELSE DE(I,P)=-1 
890 IF 1=96 THEN 910 
900 IF P=1 THEN DE(I+1,3)=1 

910 IF 1=1 THEN 930 

920 IF P=3 THEN DE(I-1 # 1)=1 

930 IF I>90 THEN 950 
940 IF P=2 THEN DE(1+6,4)=1 

950 IF I<7 THEN 970 

960 IF P=4 THEN DE (1-6, 2) =1 

970 NEXT P 

980 NEXT I 

990 RETURN 

1000 ' 

1010 ' SOMMEN PLAATSEN 

1020 ' 

1030 FOR 1=0 TO 90 STEP 6 
1040 PL=INT(RND(1)*6+1) 

1050 IF I+PL=1 THEN 1040 
1060 FOR P=1 TO 4 
1070 IF DE (I+PL, P) =1 THEN 1090 
1080 NEXT P : GOTO 1040 
1090 SO(I+PL)=1 
1100 NEXT I 

1110 RETURN 

1120 ' 

1130 ' SPRITES LEZEN 

1140 ' 

1150 RESTORE 2290 
1160 FOR 1=1 TO 8: X$="" 

1170 FOR P=1 TO 32 
1180 READ X:X$=X$+CHR$(X) 

1190 NEXT P 
1200 SPRITE$(I)=X$ 

1210 NEXT I: CLS 
1220 RETURN 

1230 ' 

1240 ' HOOFDROUTINE 


1250 ' 

1260 GOSUB 1340:' VARIABELEN LEZEN 

1270 GOSUB 1770:' KAMER TEKENEN 

1280 GOSUB 1400:' BESTURING 

1290 IF YAC14 THEN KA=KA+1: YA=150 : GO 
SUB 1770 

1300 IF YA>150 THEN KA=KA-1: YA=14 : GO 
SUB 1770 

1310 IF XA<19 THEN KA=KA-6:XA=214:GO 
SUB 1770 

1320 IF XA>214 THEN KA=KA+ 6 : XA=19 : GO 
SUB 1770 
1330 GOTO 1280 
1340 ' 

1350 ' DE BESTURING 

1360 ' 

1370 XA=114:YA=79:SP=1 

1380 SM=10:ST=5:KA=1 

1390 RETURN 

1400 PS=STICK(JN) : IF PS=1 AND MG=1 AND 
SP=LL THEN PS=0 ELSE IF MG=1 AND 
PS=1 THEN MG=0 
1410 FOR 1=1 TO 2 
1420 SX(I)=0:SY(I)=0 
1430 NEXT I 

1440 IF PS=0 AND VPO0 THEN GOTO 1680 
1450 VP=PS 

14 60 IF VPOl THEN VP=0 
1470 IF PSOl THEN 1540 
1480 SN=SM 

14 90 IF SP=1 THEN YA=YA-SN 

1500 IF SP=5 THEN YA=YA+SN 

1510 IF SP=3 THEN XA=XA+SN 

1520 IF SP=7 THEN XA=XA-SN 

1530 GOTO 1560 

1540 IF PS=3 THEN SP=SP+2: GOSUB 1730 

1550 IF PS=7 THEN SP=SP-2 : GOSUB 1730 

1560 IF SP=1 OR SP=5 THEN 

X (1) =XA:X (2) =XA+15 : Y (1) =YA: Y (2) =YA 
1570 IF SP=3 OR SP=7 THEN X(l)=XA+5: 

X (2) =XA+5 : Y (1) =YA-7 : Y (2) =YA+8 
1580 IF PSOl THEN GOSUB 2180: GOTO 1620 
1590 IF SP=1 OR SP=5 THEN 

SY(1)=ST:SY(2)=-ST:SX(1)=0:SX(2)=0 
1600 IF SP=3 OR SP=7 THEN 

SX(1)=ST:SX(2)=-ST:SY(1)=0:SY(2)=0 
1610 ST=-ST 

1620 IF PSOl THEN 1640 

1630 GOSUB 2020CONTROLE RAKEN MUUR 

1640 PUT SPRITE 1, (X(1)+SX(1) , Y(1) 

+SY(1)),15,SP 

1650 PUT SPRITE 2 , (X(2) +SX (2) , Y(2) 

+SY(2)),15,SP+1 
1660 FOR 1=1 TO 100:NEXT I 
1670 RETURN 

1680 IF SP=1 THEN YA=YA-5:ST=5 
1690 IF SP=5 THEN YA=YA+5: ST=5 
1700 IF SP=3 THEN XA=XA+5: ST=-5 
1710 IF SP=7 THEN XA=XA-5: ST=-5 
1720 VP=0 : GOTO 1560 
1730 IF SP>7 THEN SP=1 
1740 IF SP<1 THEN SP=7 
1750 IF SP=1 OR SP=5 THEN ST=5 ELSE 
ST=-5 

1760 RETURN 
1770 ' 

1780 ' KAMER TEKENEN 

1790 ' 
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1800 IF KA=97 THEN 3820GEHAALD 2390 

1810 IF SO(KA)=1 THEN GOSUB 2720 2400 

1820 AA=TIME 2410 

1830 COLOR 15,1,1:SCREEN 2 2420 

1840 DEFUSR=&H41:A=USR(0) 2430 

1850 CLS 2440 

1860 PUT SPRITE 1,(0,217) 2450 

1870 PUT SPRITE 2,(0,217) 2460 

1880 LINE(20,5)-(240,15),15,BF 2470 

1890 LINE (20,15) - (30,175) , 15, BF 2480 

1900 LINE(30,165)-(240,175),15,BF 2490 

1910 LINE(230,15)-(240,165),15,BF 2500 

1920 IF DE(KA,1)=1 THEN LINE(110,5)- 2510 

(150,15),1,BF 2520 

1930 IF DE(KA,3)=1 THEN LINE(110,165)- 2530 

(150,175),1,BF 2540 

1940 IF DE(KA,2)=1 THEN LINE(230,70)- 2550 

(240.110) ,1,BF 2560 

1950 IF DE(KA,4)=1 THEN LINE(20,70)- 2570 

(30.110) ,1,BF 2580 

1960 PSET(50,50),15 2590 

1970 COLOR 8 2600 

1980 PRINT#1,"KAMER NR"KA 2610 

1990 DEFUSR=&H4 4:A=USR(0) 2620 

2000 TIME=AA 2630 

2010 RETURN 2640 

2020 ' 2650 

2030 ' CONTROLE RAKEN MUUR 2660 

2040 ' 2670 

2050 C=0:D=0:ON SP GOSUB 2680 

2070,,2120,,2140,,2160 2690 

2060 RETURN 2700 

2070 A=POINT(X(1)+2,Y(1)):B=POINT(X(2)+13 2710 

,Y(2)):D=10 2720 

2080 IF AOl5 AND B<>15 THEN RETURN 2730 

2090 IF MG=0 THEN XA=XA+C : YA=YA+D 2740 

2100 MG=1:LL=SP 2750 

2110 RETURN 2760 

2120 A=POINT(X(l)+15,Y(l)+2):B=POINT(X(2) 2770 

+15, Y(2)+13) 2780 


2130 C=-10:GOTO 2080 

2140 A=POINT(X(1)+13,Y(1)+15):B=POINT(X(2 2790 

) +2, Y (2) +15) 

2150 D=-10:GOTO 2080 

2160 C=10:A=POINT(X(1),Y(1)+2):B=POINT(X( 


2) , Y(2)+13) 2810 

2170 GOTO 2080 2820 

2180 IF SPOl AND SP<>5 THEN 2240 2830 

2190 A=POINT(X(l),Y(1)+7) 2840 

2200 B=POINT(X(2)+15,Y(2)+7) 2850 

2210 IF A=15 THEN XA=XA+5 2860 

2220 IF B=1 5 THEN XA=XA-5 2870 

2230 RETURN 2880 

2240 A=POINT(X(1)+7,Y(1)) 2890 

2250 B=POINT(X(2)+7,Y(2)+15) 2900 

2260 IF A=15 THEN YA=YA+5 

2270 IF B=15 THEN YA=YA-5 2910 

2280 RETURN 

2290 ' 

2300 ' SPRITES 2920 

2310 ' 2930 

2320 ' LINKERVOET naar boven 2940 

2330 DATA 0,0,5,8,3,7, 7, 7 2950 

2340 DATA 7, 7,7, 7,7, 7, 3, 0 2960 

2350 DATA 0,24,88,0,224,224,192,128 2970 

2360 DATA 128,128,192,192,224,224,192,0 2980 

2370 ' RECHTERVOET naar boven 2990 

2380 DATA 0,24,26,0,7,7,3,1 3000 


DATA 1, 1,3,3,7,7,3,0 

DATA 0,0,160,16,192,224,224,224 

DATA 224,224,224,224,224,224,192,0 

' LINKERVOET naar rechts 

DATA 0,0,0,0,0,63,127,127 

DATA 127,124,48,0,0,0,0,0 

DATA 0,0,0,0,8,228,240,244 

DATA 240,116,48,6,6,0,0,0 

' RECHTERVOET naar rechts 

DATA 0,0,0,0,0,48,124,127 

DATA 127,127,63,0,0,0,0,0 

DATA 0,0,0,6,6,48,116,240 

DATA 244,240,228,8,0,0,0,0 

' LINKERVOET naar onder 

DATA 0,3, 7,7, 7,7,7,7 

DATA 7,7,7,3,8,5,0,0 

DATA 0,192,224,224,192,192,128,128 

DATA 128,192,224,224,0,88,24,0 

' RECHTERVOET naar onder 

DATA 0,3,7,7,3,3,1,1 

DATA 1,3,7,7,0,26,24,0 

DATA 0,192,224,224,224,224,224,224 

DATA 224,224,224,192,16,160,0,0 

' LINKERVOET naar links 

DATA 0,0,0,0,16,39,15,47 

DATA 15,46,12,96,96,0,0,0 

DATA 0,0,0,0,0,252,254,254 

DATA 254,62,12,0,0,0,0,0 

' RECHTERVOET naar links 

DATA 0,0,0,96,96,12,46,15 

DATA 47,15,39,16,0,0,0,0 

DATA 0,0,0,0,0,12,62,254 

DATA 254,254,252,0,0,0,0,0 
/ 

' SOM BEDENKEN 

r 

COLOR 15,4,4:SCREEN 0 
LOCATE 15,2:PRINT"KAMER"KA 
LOCATE 15,5:PRINT"S OM:" 

LOCATE 3,16:PRINT"VUL HET ONTBRE 
KENDE GETAL IN:" 

IF JN=0 THEN A$="CURSORTOET 
SEN":X=5 ELSE A$="JOYSTICK":X=7 
2800 LOCATE X, 18:PRINT"KIES MET 
UW "A$ 

XE=0 

A=INT(RND(1)*9+1) 

B=INT(RND(1)*9+1) 

C=INT(RND(1)*9+1) 

D=INT(RND(1)*9+1) 

E=INT(RND(1)*9+1) 

F=INT(RND(1)*9+1) 

I=CINT((KA+5)/6) 

IF 1=0 THEN 1=1 

LOCATE 10,10:PRINT" 

\\ 

ON I GOSUB 2940,3140,3190,3240, 
3290,3340,3390,3430,3470,3510, 
3550,3590,3630,3670,3720,3770 
FOR 1=1 TO 200: NEXT I 
RETURN 

' le RIJ KAMERS 
AN=A+B 

LOCATE 13,10:PRINT A , ’ + ’ , B ,, = ?" 

HO=18:X=21 

Z=0:SC=100 

FOR P=1 TO SC:NEXT P 
PS=STICK(JN) 
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3010 IF PS<>3 AND PS<>7 THEN PS=0 
3020 IF PS=0 THEN SC=100:GOTO 3100 
3030 SC=SC-5:IF SC<25 THEN SC=25 
3040 IF PS=3 THEN Z=Z+1 
3050 IF PS=7 THEN Z=Z-1 
3060 IF Z<1 THEN Z=1 
3070 IF Z>H0 THEN Z=HO 
3080 LOCATE X,10:PRINT Z 
3090 IF XEO0 THEN LOCATE XE,10:PRINT Z 
3100 IF STRIG(JN) AND Z>0 THEN 3110 
ELSE 2990 

3110 LOCATE 16,13: IF Z=AN THEN 

PRINT"GOED !":G=1 ELSE GOSUB 4900 
3120 IF G=0 THEN FOR 1=1 TO 500:NEXT 
I:LOCATE 10,13:PRINT" 

":GOTO 2880 
3130 RETURN 
3140 ' 2e RIJ KAMERS 

3150 AN=A*B 

3160 LOCATE 13,10:PRINT A ,, x ,, B”= ?” 

3170 HO=81:X=21 

3180 GOTO 2980 
3190 ' 3e RIJ KAMERS 

3200 C=A+B 

3210 LOCATE 13, 10:PRINT A M + ? =”C 

3220 X=17:HO= 9:AN=B 

3230 GOTO 2980 

3240 ' 4e RIJ KAMERS 

3250 C=A*B 

3260 LOCATE 13,10:PRINT A"x ? ="C 
3270 X=17:HO=9:AN=B 

3280 GOTO 2980 

3290 ' 5e RIJ KAMERS 

3300 AN=A*B:X=12:HO=81 
3310 LOCATE 13,10:PRINT”? /"A"="B 

3320 LOCATE 6,20:PRINT"PS: / IS EEN 

DEELTEKEN" 

3330 GOTO 2980 

3340 ' 6e RIJ KAMERS 

3350 IF A+B<=C THEN 2840 

3360 AN=-(C-B-A):HO=17:X=19 

3370 LOCATE 11,10:PRINT A"+"B M - ? ="C 

3380 GOTO 2980 

3390 ' 7e RIJ KAMERS 

3400 D=A*B+C:HO=9:X=19:AN=C 

3410 LOCATE 11,10:PRINT A ,, x ,, B"+ ? = "D 

3420 GOTO 2980 

3430 ' 8e RIJ KAMERS 

3440 D=A+B*C:HO=9:X=19:AN=C 

3450 LOCATE 11,10:PRINT A"+"B"x ? = M D 

3460 GOTO 2980 

3470 ' 9e RIJ KAMERS 

3480 E=A*(B+C+D):AN=C:HO=9:X=17 

3490 LOCATE 7,10:PRINT A M x ("B" + ? 

+ "D") = "E 

3500 GOTO 2980 
3510 ' 10e RIJ KAMERS 

3520 E=A*(B+C*D):AN=C:HO=9:X=17 
3530 LOCATE 7,10:PRINT A n x ("B" + ? 

x"D") ="E 

3540 GOTO 2980 
3550 ' 11e RIJ KAMERS 

3560 E=A*B*(C+D):AN=A:HO=9:X=6 
3570 LOCATE 7,10: PRINT” ? x"B"x 
("C"+"D") ="E 

3580 GOTO 2980 
3590 ' 12e RIJ KAMERS 

3600 F=(A+B*C)*(D+E):AN=C:H0=9:X=13 


3610 LOCATE 4,10:PRINT"("A"+"B"x ? ) x 
('WE") ="F 

3620 GOTO 2980 
3630 ' 13e RIJ KAMERS 
3640 E=A*A+B*C+D:AN=A:HO=9:X=8 
3650 LOCATE 9,10:PRINT"? + lf B"x"C"- 
"D") x ("E"-"F") ="G 

3710 GOTO 2980 
3720 ' 15e RIJ KAMERS 
3730 IF A*B+C-D=0 OR E*A=0 THEN 2840 
3740 F=(A*B+C- 

D)*(E*A):AN=A:HO=9:X=5:XE=27 
3750 LOCATE 4,10:PRINT"( ? x"B"+"C"- 
"D") x"E"x ? ="F 
3760 GOTO 2980 
3770 ' 16e RIJ KAMERS 

3780 IF A*B+C*D=0 OR A-E+F=0 THEN 2840 
3790 G=(A*B+C*D)*(A-E+F):AN=A:HO=9: 

X=1:XE=21 

3800 LOCATE 0,10:PRINT"( ? x"B"+"C"x 
"D") x ( ? -»E" + m F") =" : LOCATE 
32,12:PRINT G 
3810 GOTO 2980 
3820 ' 

3830 ' GEHAALD 

3840 ' 

3850 A=TIME 

3860 COLOR 15,4,4:SCREEN 0 
3870 LOCATE 10,3:PRINT"GEFELICITEERD!" 
3880 LOCATE 7,6:PRINT"U HEEFT HET GE 
HAALD!" 

3890 LOCATE 7,10:PRINT"UW TIJD IS:" 
3900 SE=A/50:MI=0 

3910 IF SE>59 THEN SE=SE- 
60:MI=MI+1:GOTO 3910 
3920 SE=CINT(SE) 

3930 LOCATE 20,10:PRINT MI":"SE 
3940 IF SE<10 THEN LOCATE 25,10:PRINT 
SE:LOCATE 25,10:PRINT"0" 

3950 LOCATE 10,16:PRINT"NOG EEN 
KEER?":B$="JA " 

3960 PS=STICK(JN) 

3970 IF PS=3 THEN B$="NEE" 

3980 IF PS=7 THEN B$="JA " 

3990 LOCATE 24,16:PRINTB$ 

4000 IF STRIG(JN) THEN 4020 

4010 GOTO 3960 

4020 IF B$="JA " THEN 150 

4030 END 

4040 ' 

4050 ' MENU 

4060 ' 

4070 TT=0 

4080 COLOR 4,4,4:SCREEN 0:KEY OFF 
4090 LOCATE 6,2:PRINT"R E K E N D O O 
LH O F" 

4100 LOCATE 10,7:PRINT"MAAK UW KEUZE:" 
4110 LOCATE 0,10:PRINT"REKENDOOLHOFIS 
EENPRODUK TIEVANMICHIEL" 

4120 Q$="VISSER.":W$="EKENDOO" 

4130 FOR 1=11 TO 17 

4140 LOCATE 35,I:PRINT MID$(Q$,1-10, 1) 
4150 LOCATE 0,1:PRINT MID$(W$,1-10,1) 
4160 NEXT I 

4170 LOCATE 0,18:PRINT"LHOFIS 

EENPRODUKTIEVANMICHIELVISSER.#" 
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O 
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4180 IF TT=1 THEN TT=0: LOCATE 

2,13:PRINT"F1 -":LOCATE 2,15:- 
PRINT"F2 :GOTO 4250 
I 4190 LOCATE 2,13:PRINT”F1 - UITLEG" 

4200 LOCATE 2,15:PRINT M F2 - START SPEL" 
4210 COLOR 15,4,4 
4220 ON KEY GOSUB 4330,4250 
4230 KEY (1) ON: KEY (2) ON 
> 4240 GOTO 4240 

4250 LOCATE 7,13:PRINT"BESTURING MET 
CURSORTOETSEN" 

4260 LOCATE 7,15:PRINT"BESTURING MET 
JOYSTICK 1" 

4270 ON KEY GOSUB 4310,4320 
4280 KEY(1) ON:KEY(2) ON 
| 4290 COLOR 15,4,4 

I 4300 GOTO 4300 

1 4310 JN=0: GOTO 160 

4320 JN=1: GOTO 160 
I 4330 ' 

I 4340 ' UITLEG 

' 4350 ' 

4360 KEY (2) OFF 
4370 CLS:COLOR 4,4,4 
I 4380 FOR 1=0 TO 36 

I 4390 LOCATE I,1:PRINT"-" 

4400 LOCATE 1,5:PRINT"-" 

4410 NEXT I 

4420 LOCATE 9,3:PRINT"UITLEG REKENDOOL 
HOF" 

4430 LOCATE 0,8 

4440 PRINT"U bent in een gebouw, waar 
u ZO SNEL MOGELIJK uit moet ko 
I men." 

I 4450 PRINT"Het gebouw heeft 96 kamers 

(16x6), en u begint linksonder, 
(van bovenaf gezien)" 

44 60 PRINT "De uitgang is in kamer 96. 
(rechtsboven)" 

4470 PRINT"Zestien kamers zijn ' reken 
kamers ' . " 

4480 PRINT "Dit wil zeggen dat u daar 
een som moet oplossen." 

4490 PRINT"Hoe verder u komt, des te 
moeilijker worden de sommen." 

4500 PRINT:PRINT TAB(10)"Veel Plezier!" 
4510 PRINT:PRINT"druk de spatie..." 

4520 COLOR 15,4,4:TT=1 
4530 IF STRIG(O) THEN 4540 ELSE 4530 
4540 SCREEN 2:DEFUSR=&H41:A=USR(0) 

4550 FOR 1=10 TO 235 STEP 15 
4560 LINE(1,50)-(1+15, 140) , 15, B 
4570 NEXT I 

4580 FOR 1=50 TO 110 STEP 30 
4590 LINE(10,1)-(250,1+15),15,B 
4600 NEXT I 

4610 P=1 : FOR L=8 TO 233 STEP 15 

4620 FOR 1=130 TO 55 STEP -15 
4630 IF PC10 THEN PSET(L,I),4 ELSE 
PSET(L-4,I),4 
4 640 PRINT#1, P 
4650 P=P+1 

4 660 NEXT I,L 

4670 LINE(241,50)-(243,50),4 
4680 DRAWC15BM16, 155U8F2H2G2" 

4690 DRAWBM242,48U8F2H2G2" 

4700 PSET(195,30),4:PRINT#1,"UITGANG" 
4710 PSET(10,158),4:PRINT#1,"BEGIN" 


I 

I 

4720 PSET (10,10),4:PRINT#1, "DUS:" 

4730 LINE(10,19)-(37,19),15 
4740 PSET(58,30),4:PRINT#1,"(BOVENAAN 
ZICHT)" 

4750 LINE (58,39)-(172,39),15 
4760 LINE (58,41)-(172,41),15 

4770 S$="ps: ALLES is begane grond" I 

4780 X=80: FOR 1=1 TO 25 

4790 PSET(X,158),4:PRINT#1,MID$(S$,I,1) 

4800 X=X+6:NEXT I 

4810 PSET(100,180),4:PRINT#1,"Druk de 
spatie ..." 

4820 DEFUSR=&H4 4:A=USR(0) 

4830 IF STRIG(O) THEN 4840 ELSE 4830 
4840 SCREEN 0 

4850 LOCATE 0,5:PRINT"De besturing is 
als volgt:" 

4860 LOCATE 6,8:PRINT"- naar links en 
rechts draait u 

4870 LOCATE 6,10:PRINT"- naar boven 
loopt u" 

4880 LOCATE 10,20:PRINT"Druk de spa¬ 
tie. . . " 

4890 IF STRIG(O) THEN 4080 ELSE 4890 
4900 PRINT"FOUT 

!":G=0:TIME=TIME+750:FOR 1=1 TO 
200:NEXT I:LOCATE 10,13:PRINT"15 
STRAFSECONDEN!":RETURN 
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- 

56 

regel : 

: 1460 

- 

161 

regel : 

1470 

- 

16 

regel : 

1480 

- 

48 

regel : 

1490 

- 

191 

regel : 

1500 

- 

194 

regel : 

1510 

- 

190 

regel : 

1520 

- 

195 

regel : 

1530 

- 

181 

regel : 

1540 

- 

225 

regel : 

1550 

- 

230 

regel : 

1560 

- 

119 

regel : 

1570 

- 

142 

regel : 

1580 

- 

74 

regel : 

1590 

- 

176 

regel : 

1600 

- 

180 

regel : 

1610 

- 

47 

regel : 

1620 

- 

116 

regel : 

1630 

- 

250 

regel : 

1640 

- 

196 

regel : 

1650 

- 

204 

regel : 

1660 

- 

30 

regel : 

1670 

- 

142 

regel : 

1680 

- 

26 

regel : 

1690 

- 

29 

regel : 

1700 

- 

11 

regel : 

1710 

- 

16 

regel : 

1720 

- 

149 

regel : 

1730 

- 

178 

regel : 

1740 

- 

180 

regel : 

1750 

- 

205 

regel : 

1760 

- 

142 

regel : 

1770 

- 

58 

regel : 

1780 

- 

58 

regel : 

1790 

- 

58 

regel : 

1800 

- 

204 

regel : 

1810 

- 

42 

regel : 

1820 

- 

60 

regel : 

1830 

- 

105 

regel : 

1840 

- 

176 


O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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regel 

: 4490 

- 

42 

regel 

: 4710 

_ 

27 

regel 

: 4500 

- 

69 

regel 

: 4720 

- 

72 

regel 

: 4510 

- 

47 

regel 

: 4730 

- 

118 

regel 

: 4520 

- 

64 

regel 

: 4740 

- 

131 

regel : 

: 4530 

- 

240 

regel 

: 4750 

- 

85 

regel : 

: 4540 

- 

194 

regel 

: 4760 

- 

89 

regel 

: 4550 

- 

160 

regel : 

: 4770 

- 

144 

regel : 

: 4560 

- 

208 

regel : 

: 4780 

- 

173 

regel : 

: 4570 

- 

204 

regel : 

: 4790 

- 

174 

regel : 

: 4580 

- 

90 

regel : 

: 4800 

- 

173 

regel : 

: 4590 

- 

22 

regel : 

: 4810 

- 

149 

regel : 

: 4600 

- 

204 

regel ; 

: 4820 

- 

179 

regel : 

: 4610 

- 

44 

regel : 

: 4830 

- 

74 

regel : 

: 4620 

- 

86 

regel : 

: 4840 

- 

214 

regel : 

4630 

- 

202 

regel : 

: 4850 

- 

56 

regel : 

4640 

- 

66 

regel : 

: 4860 

- 

87 

regel : 

4650 

- 

146 

regel : 

: 4870 

- 

207 

regel : 

4660 

- 

68 

regel : 

4880 

- 

190 

regel : 

4670 

- 

96 

regel : 

4890 

- 

140 

regel : 

4680 

- 

96 

regel : 

4900 

- 

205 

regel : 

4690 

- 

185 





regel : 

4700 

- 

254 

Totaaltelling: 

55053 


Schuifpuzzel 


Van Michiel Visser is ook deze variatie van het 
alom bekende schuifspel. Door middel van de 
cursortoetsen wordt aangegeven welk blokje 
waarheen moet worden geplaatst. 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 


42 


KEY OFF:CLS:COLOR 15,4,4 
GOTO 2200 
DIM SP (20) 

OPEN M GRP:"AS#1 
R=RND(-TIME) 

SCREEN 2,3 

FOR 1=2 TO 20 : X$="" 

FOR P=1 TO 32 : READ X 
X$=X$+CHR$(X):NEXT P 
SPRITE$(I)=X$:NEXT I 
FOR Y=10 TO 175 STEP 33 
LINE (49,Y)-(181,Y) ,1 
NEXT Y 

FOR X=4 9 TO 184 STEP 33 
LINE(X,10)-(X,175),1 
NEXT X 
GOSUB 700 
GOTO 190 

f 

9 HOOFDROUTINE 


GOSUB 1980 
PS=STICK(0) 

IF PS=0 THEN AR=0 
IF AR=1 THEN 230 
QQ=(YY-1)*4+XX 
IF PS=1 AND YY<5 
(QQ+4):SP(QQ+4)=1 
IF PS=5 AND YY>1 
(QQ-4):SP(QQ-4)=1: 
IF PS=3 AND XX>1 
(QQ-1):SP(QQ-1)=1: 
IF PS=7 AND XX <4 
(QQ+1):SP(QQ+1)=1: 

' CONTROLE 


:GOTO 230 


THEN 
AR=1: 
THEN 
AR=1: 
THEN 
AR=1: 
THEN 
AR=1: 


SP(QQ)=SP 
GOSUB 460 
SP(QQ)=SP 
GOSUB 520 
SP(QQ)=SP 
GOSUB 580 
SP(QQ)=SP 
GOSUB 640 


FOR W=1 TO 20 

IF SP (W)OW THEN 230 

NEXT W 

' GEHAALD 


400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 


750 

760 


770 

780 

790 

800 


810 

820 


830 


840 


850 

860 

870 

880 

890 

900 


COLOR 1 

PSET(61,0),4:PRINT#1, "GEFELICI 
TEERD!" 

COLOR 4 
COLOR 15 

FOR 1=1 TO 1000:NEXT I 

GOTO 1860 

YY=YY+1 

XA=(XX-1)*33+50 
YA=(YY-1)*33+10 
PUT SPRITE SP(QQ+4),(XA,YA) 

PUT SPRITE SP(QQ),(XA,YA-33) 

RETURN 

YY=YY-1 

XA=(XX-1)*33+50 
YA=(YY-1)*33+10 
PUT SPRITE SP(QQ-4),(XA,YA) 

PUT SPRITE SP(QQ),(XA,YA+33) 

RETURN 

XX=XX-1 

XA=(XX-1)*33+50 
YA=(YY-1)*33+10 
PUT SPRITE SP(QQ-1),(XA,YA) 

PUT SPRITE SP(QQ) , (XA+33, YA) 

RETURN 

XX=XX+1 

XA=(XX-1)*33+50 
YA=(YY-1)*33+10 
PUT SPRITE SP(QQ+1),(XA,YA) 

PUT SPRITE SP(QQ),(XA-33,YA) 

RETURN 

' TEKENEN HOOFD 

r 

LINE(190,55)-(255, 141) ,1,B 
DRAWC1BM190,117R3ER3ERER2ER2E2U2 
EU2LULULU2HU2HU3E2U2HU8EU4E2UEUE3U 
E3RE2RER2ER4FR6FRFR2F3GG2D2GHL3GDGL 
HGL4G2LG2LGLGL6G2D3GD7 ,f 
PAINT(220, 70) , 1 

DRAWBM228, 75DGDGDG2BM225, 75D3GDG 
DBM223,75D2G3BM205,97D2FBM210,102D 
FDFDFD2" 

DRAW"BM242,69GDGDGDGFRF3DFD9FD4R 

U2RF2D3GD3G2DG3D2GD4G4LG5LGL4HLGL3 

H6UH2UH2U2" 

DRAW"BM242,69FR2F2D3FDF2DGD6GFD2LGD4 
PAINT(245,85),1 

DRAWBM230,125FRFRFRFR3F2R2F2DF2D 
F3DBM232,125D4GD2G5L2H3ULH4LH8UHU 
HU4 " 

PAINT(191,140),1 

DRAW M BM223,98GD2GDGDFRF2R2E2RFEU- 
HUHU3HBM2 4 5,98D3GBM217,110GD4BM2- 
34,109F2D2GBM234,81R3F2BM235,84FR" 
DRAWBM227, 89DBM215, 89R9DLH2L4BM 
230,90R7FHLHL4BM214,93DFR6EUH2L3GL 
RED2F2RU3BM234,99R2" 

DRAW"BM230,93DFR6EUHL4D4RE2U2L3GL 
BM221,114LD2FR9EU3HL3GHL3GR10DGDL 
8BM222,118R7" 

FOR X=190 TO 255 STEP 16.25 
LINE(X,55)- (X,141),1 
NEXT X 

FOR Y=55 TO 141 STEP 17.2 
LINE(190,Y)-(255,Y),1 
NEXT Y 
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PRINT OUT - PRINT OUT - PRINT OUT - PRINT OUT - PRINT 


910 

RETURN 

1520 

DATA 

136,8,8,65,65,65, 33, 17 


920 

DATA 0, 0, 0,0,0, 0, 3, 7 

1530 

DATA 

144,136,196,196,226,225,240, 


930 

DATA 15,31,31,63,127,255,255,255 


248 



940 

DATA 0,0,3,31,127,255,255,255 

1540 

DATA 

0,0,128,0,7,15,24,24 


950 

DATA 255,255,255,255,255,255,255, 

1550 

DATA 

31,15,7,0,0,0,128,64 



255 

1560 

' 15 



960 

' 3 

1570 

DATA 

224,0,0,0,188,254,2,6 


970 

DATA 0,0,224,255,255,255,255,255 

1580 

DATA 

254,252,248,0,0,0,0,0 


980 

DATA 255,255,255,255,255,255,255, 

1590 

DATA 

0,64,32,16,16,16,32,0 



251 

1600 

DATA 

0,1,2,12,16,32,64,224 


990 

DATA 0,0,0,128,224,252,254,255 

1610 

' 16 



1000 

DATA 255,255,254,254,252,132,129,3 

1620 

DATA 

16,32,32,32,64,64, 64, 64 


1010 

' 4 

1630 

DATA 

128,0,0,0,0,0,0,0 


1020 

DATA 0,0, 0, 0, 0, 0, 0, 0 

1640 

DATA 

0, 0,0, 0, 0, 0,0,0 


1030 

DATA 128,32,124,126,255,255,255,255 

1650 

DATA 

0, 0, 0, 0, 0, 0, 0, 0 


1040 

DATA 0,0,0,0,0,0,0,0 

1660 

' 17 



1050 

DATA 0, 0,0, 0, 0,0, 0,0 

1670 

DATA 

255,255,255,255,255,255,255, 


1060 

' 5 


255 



1070 

DATA 0,0,0,0,0,0,0,0 

1680 

DATA 

255,255,255,255,255,255,255, 


1080 

DATA 0,0, 0, 0, 0, 0, 0, 0 


255 



1090 

DATA 1,3,7,7,7,7,15,15 

1690 

DATA 

255,255,255,255,255,255, 255, 


1100 

DATA 15,15,15,15,15,15,15,7 


255 



1110 

' 6 

1700 

DATA 

255,255,255,255,255,255,255, 


1120 

DATA 


255 




255,255,255,255,255,255,192,128 

1710 

' 18 



1130 

DATA 128,128,128,0,0,3,0,0 

1720 

DATA 

252,254,255,255,255,255,255, 


1140 

DATA 255,254,248,241,194,4,0,0 


255 



1150 

DATA 0,0,0,0,248,254,3,240 

1730 

DATA 

255,255,255,255,255,255,255, 


1160 

' 7 


255 



1170 

DATA 162,164,164,72,72,144,160,0 

1740 

DATA 

33,62,0,192,224,240,248, 254 


1180 

DATA 0,0,0,0,0,35,39,0 

1750 

DATA 

255,255,255,255,255,255,255, 


1190 

DATA 1,0,0,0,0,120,4,2 


255 



1200 

DATA 32,24,0,0,0,224,248,4 

1760 

' 19 



1210 

' 8 

1770 

DATA 

131,124, 0, 0, 1, 1,1, 3 


1220 

DATA 255,127,63,31,31,15,15,15 

1780 

DATA 

7,143,255,255,255,255,255,255 


1230 

DATA 15,15,15,15,15,15,15,15 

1790 

DATA 

120,126,127,255,255,255,255, 


1240 

DATA 128,128,192,224,224,192,192, 


255 




192 

1800 

DATA 

255,255,255,255,255,255,255, 


1250 

DATA 


255 




192,192,192,192,128,192,192,192 

1810 

' 20 



1260 

' 9 

1820 

DATA 

0,0,128,240,252,255,255,255 


1270 

DATA 0, 0, 0, 0, 0, 0, 0, 0 

1830 

DATA 

255,255,255,255,255,255,255, 


1280 

DATA 0,0, 0, 0, 0, 0, 0, 0 


255 



1290 

DATA 7,7,11,17,16,18,18,10 

1840 

DATA 

0,0,0,0,0,128,192,224 


1300 

DATA 9, 8, 4, 4, 6, 3, 0, 0 

1850 

DATA 

224,240,248,248,252,254,255, 


1310 

' 10 


255 



1320 

DATA 3, 4,2, 1, 0, 0, 0, 0 

1860 

t 



1330 

DATA 0,0,64,64,32,32,144,144 

1870 

' NOG 

EEN KEER ? 


1340 

DATA 152,148,84,248,0,0,1,2 

1880 

f 



1350 

DATA 2,2,4,4,8,8,6,1 

1890 

COLOR 

15,4,4 


1360 

' 11 

1900 

SCREEN 0 


1370 

DATA 0,3, 4, 6, 1,0,8, 4 

1910 

LOCATE 2,2:PRINT"G E F E L I C I 


1380 

DATA 4,4,4,2,2,1,13,22 


TEE 

: R D ! ! ! ” 


1390 

DATA 240,152,148,164,248,0,0,120 

1920 

LOCATE 7,6:PRINT"U heeft het qe 


1400 

DATA 0,0,0,0,0,0,0,0 


haald 

1 " 


1410 

' 12 

1930 

LOCATE 8,12:PRINT"Nog een keer? 


1420 

DATA 7, 7,7, 5, 4,0,0, 4 


(J/N) 

tl 


1430 

DATA 5, 5,5,9,2,4,4,8 

1940 

K$=INKEY$ 


1440 

DATA 192, 192, 192,128,128,128,128, 

1950 

IF K$ 

="j" OR K$="J" THEN CLEAR: 



128 


GOTO 

30 


1450 

DATA 0, 0, 0, 0, 0, 0,0,0 

1960 

IF K$ 

="n M OR K$="N" THEN CLS: END 


1460 

' 13 

1970 

GOTO 

1940 


1470 

DATA 0,0,0,0,0,0,0,1 

1980 

r 



1480 

DATA 15,255,255,255,255,255,255, 255 

1990 

' DOOR ELKAAR HUTSELEN 


1490 

DATA 0,1,1,1,3,15,127,255 

2000 

/ 



1500 

DATA 255,255,255,255,255,255,255, 

2010 

FOR I 

=1 TO 20:SP(I)=I:NEXT 



255 

2020 

SP=1 



1510 

' 14 

2030 

FOR Y : 

=10 TO 170 STEP 33 
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- PRINT OUT - PRINT OUT - PRINT OUT - PRINT OUT - PRINT 


2040 FOR X=50 TO 180 STEP 33 
2050 PUT SPRITE SP, (X, Y) 

2060 SP=SP+1:NEXT X,Y:XX=1:YY=1 
2070 RY=0 :RX=INT(RND(1)*4+1) 

2080 RX=RX-2 

2090 IF RX=0 OR RX=2 THEN RX=0:RY=INT 
(RND(l) *2+1) :IF RY=2 THEN RY=-1 
2100 IF RX<0 AND XX=1 THEN 2070 

2110 IF RX>0 AND XX=4 THEN 2070 

2120 IF RY<0 AND YY=1 THEN 2070 

2130 IF RY>0 AND YY=5 THEN 2070 

2140 QQ=(YY-1)*4+XX 

2150 IF RY=1 THEN SP (QQ) =SP (QQ+4) : SP 
(QQ+4)=1:GOSUB 460 

2160 IF RY=-1 THEN SP (QQ) =SP (QQ-4) : SP 
(QQ-4)=1:GOSUB 520 

2170 IF RX=-1 THEN SP (QQ) =SP (QQ-1) : SP 
(QQ-1)=1:GOSUB 580 

2180 IF RX=1 THEN SP (QQ) =SP (QQ+1) : SP 
(QQ+1)=1:GOSUB 640 

2190 IF STRIG(O) THEN RETURN ELSE 2070 
2200 ' 

2210 ' UITLEG 

2220 ' 

2230 LOCATE 8,3:PRINT"M.Visser presen 
teert:" 

2240 LOCATE 13,6:PRINT”Schuif-MSX M 
2250 LOCATE 7,14:PRINT”Wilt u een uit 
leg? (J/N)" 

2260 K$=INKEY$ 

2270 IF K$="j” OR K$=”J" THEN 2300 
2280 IF K$="n” OR K$=”N” THEN 30 
2290 GOTO 2260 
2300 CLS 

2310 PRINT"Schuif-MSX is een schuifpuz 
zei, die u wel zult kennen. Al 
leen de besturing wijkt af van 
het echte spel." 

PRINT "Eerst gaat de MSX de puzzel 
door elkaar schudden. Zodra u 
denkt dat het zo moeilijk genoeg 
is, drukt u op de spatie en het 
spel kan beginnen. " 

PRINT"De besturing is met cursor 
toetsen." 

PRINT:PRINT"Veel plezier!" 

PRINT:PRINT:PRINT"(Druk de spatie)" 
IF STRIG(O) THEN 30 ELSE 2360 


2320 


2330 

2340 

2350 

2360 


Schuifpuzzel LISTTEST 

regel 

10 

- 

39 

regel 

240 

_ 

82 

regel 

20 

- 

118 

regel 

250 

_ 

237 

regel 

30 

- 

157 

regel 

260 

- 

65 

regel 

40 

- 

224 

regel 

270 

_ 

31 

regel 

50 

- 

214 

regel 

280 

- 

92 

regel 

60 

- 

24 

regel 

290 

- 

142 

regel 

70 

- 

178 

regel 

300 

- 

209 

regel 

80 

- 

212 

regel 

310 

- 

58 

regel 

90 

- 

35 

regel 

320 

- 

58 

regel 

100 

- 

246 

regel 

330 

- 

58 

regel 

110 

- 

134 

regel 

340 

- 

214 

regel 

120 

- 

143 

regel 

350 

- 

217 

regel 

130 

- 

220 

regel 

360 

- 

218 

regel 

140 

- 

181 

regel 

37 0 

- 

58 

regel 

150 

- 

96 

regel 

380 

- 

58 

regel 

160 

- 

219 

regel 

390 

- 

58 

regel 

170 

- 

89 

regel 

400 

- 

207 

regel 

180 

- 

85 

regel 

410 

- 

26 

regel 

190 

- 

58 

regel 

420 

- 

210 

regel 

200 

- 

58 

regel 

430 

- 

219 

regel 

210 

- 

58 

regel 

440 

- 

178 

regel 

220 

- 

94 

regel 

450 

- 

226 

regel 

230 

- 

149 

regel 

460 

- 

86 


regel 

: 470 

- 

226 

regel 

: 1350 

_ 

91 

regel 

: 480 

- 

189 

regel 

: 1360 

- 

58 

regel 

: 490 

- 

242 

regel 

: 1370 

- 

82 

regel 

: 500 

- 

14 

regel 

: 1380 

- 

177 

regel 

: 510 

- 

142 

regel 

: 1390 

- 

175 

regel 

: 520 

- 

87 

regel 

: 1400 

- 

56 

regel 

: 530 

- 

226 

regel 

: 1410 

- 

58 

regel 

: 540 

- 

189 

regel 

: 1420 

- 

90 

regel 

: 550 

- 

243 

regel 

: 1430 

- 

98 

regel 

: 560 

- 

13 

regel 

: 1440 

- 

147 

regel 

: 570 

- 

142 

regel 

: 1450 

_ 

56 

regel 

: 580 

- 

83 

regel 

: 1460 

- 

58 

regel 

: 590 

- 

226 

regel 

: 1470 

- 

57 

regel 

: 600 

- 

189 

regel 

: 1480 

- 

98 

regel 

: 610 

- 

240 

regel 

: 1490 

_ 

74 

regel 

: 620 

- 

13 

regel 

: 1500 

- 

152 

regel 

: 630 

- 

142 

regel 

: 1510 

- 

58 

regel 

: 640 

- 

82 

regel 

: 1520 

- 

209 

regel 

: 650 

- 

226 

regel 

: 1530 

_ 

146 

regel 

: 660 

- 

189 

regel 

: 1540 

- 

76 

regel 

: 670 

- 

239 

regel 

: 1550 

- 

78 

regel 

: 680 

- 

14 

regel 

: 1560 

- 

58 

regel 

: 690 

- 

142 

regel 

: 1570 

- 

132 

regel 

: 700 

- 

58 

regel 

: 1580 

_ 

122 

regel 

: 710 

- 

58 

regel 

: 1590 

- 

129 

regel 

: 720 

- 

58 

regel 

: 1600 

- 

124 

regel 

: 730 

- 

4 

regel 

: 1610 

- 

58 

regel 

: 740 

- 

7 

regel 

: 1620 

- 

246 

regel 

: 750 

- 

186 

regel 

: 1630 

- 

163 

regel 

: 7 60 

- 

6 

regel 

: 164 0 

- 

56 

regel 

: 770 

- 

25 

regel 

: 1650 

- 

56 

regel 

: 780 

- 

146 

regel 

: 1660 
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1 Sprite Editor | 


Een Sprite Editor zal zeker voor de ervaren MSX 
gebruiker niet vreemd zijn. Maar hierbij geldt dat 
je er nooit genoeg van kan hebben, dus Michiel 
Visser dacht, daar zullen we wat aan doen en 
heeft het volgende programma geschreven. 

10 DIM SC(256),DA(32) 

20 OPEN"GRP:”AS#1 

30 COLOR 15,4,4:SCREEN 0:KEY OFF 

40 GOSUB 1700 

50 CLS 

60 COLOR 15,4,4:SCREEN 0:KEY OFF 

70 FOR 1=1 TO 256:SC(I)=0:NEXT I:SC=0 
80 VG=GR: IF GRO0 THEN GW=1 

90 LOCATE 11,10:PRINT"F1 - BEWERKEN" 

100 LOCATE 11,13:PRINT"F2 - TEKENEN" 

110 LOCATE 11,6:PRINT"MAAK UW KEUZE:" 

120 LOCATE 1,8:PRINT”:::::::::::::::: 


130 LOCATE 1,15:PRINT"*************** 
******************** 

140 LOCATE 1,4:PRINT"**************** 

150 ON KEY GOSUB 180,190 

160 KEY(1) ON:KEY(2) ON 

170 GOTO 170 

180 A=1 : GOTO 200 

190 A=2 

200 LOCATE 16, 10 :PRINT 1 '8 x 8 SPRITES" 

210 LOCATE 16,13:PRINT”16x16 SPRITES" 

220 ON KEY GOSUB 250,260 

230 KEY(1) ON:KEY(2) ON 

240 GOTO 240 

250 GR=1:GOTO 270 

260 GR=2 

270 KEY(1) OFF:KEY(2) OFF 

280 IF A=1 THEN 800 

290 SCREEN 2,2 

300 RESTORE 390:X$= ,,M 

310 FOR P=1 TO 32: READ X 

320 X$=X$+CHR$(X):NEXT P 

330 SPRITE$(1)=X$ 

340 X$= ,,u 

350 FOR P=1 TO 8: READ X 

360 X$=X$+CHR$(X):NEXT P 

370 SPRITE$(2)=X$ 

380 GOTO 440 

390 DATA 255,128,128,128,128,128,128, 

128 

400 DATA 128,128,255,0,0,0,0,0 

410 DATA 224,32,32,32,32,32,32,32 

420 DATA 32,32,224,0,0,0,0,0 

430 DATA 128,0,0,0,0,0,0,0 

440 

450 ' TEKENEN 

460 

470 GOSUB 1030 

480 IF A=1 THEN GOSUB 950 


490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 


920 

930 

940 

950 

960 

970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 


XA=20:YA=19 

PUT SPRITE 1, (XA,YA) , 1 
PS=STICK(0) 

IF PS=0 THEN GE=0 
IF GE=1 THEN 660 
IF PS=1 THEN YA=YA-10 : GE=1 
IF PS=3 THEN XA=XA+10: GE=1 
IF PS=5 THEN YA=YA+10 :GE=1 
IF PS=7 THEN XA=XA-10:GE=1 
IF XA<20 THEN XA=20 
IF YAC19 THEN YA=19 
IF GR=1 THEN 640 
IF XA>170 THEN XA=170 
IF YA>169 THEN YA=169 
GOTO 660 

IF XA>90 THEN XA=90 
IF YA>89 THEN YA=89 
IF VK=1 THEN 710 
IF STRIG(O) AND VK=0 THEN 680 
ELSE 710 

VK—1:P=POINT(XA+5,YA+5) 

IF P=4 THEN K=15 ELSE K=4 
LINE (XA+1, YA+2) - (XA+9, YA+10) , K, BF 
IF STRIG(O) THEN 720 ELSE VK=0 
K$=INKEY$ 

IF K$= M " THEN 7 90 

IF ASC(K$)=11 THEN GOSUB 1190 

IF ASC(K$)=27 THEN GOSUB 1290 

IF ASC (K$) =9 THEN GOSUB 1430 

IF ASC(K$)=8 THEN 1490 

IF ASC(K$)=18 THEN GR=0:GOTO 60 

GOTO 500 

t 

' BEWERKEN 

r 

IF GW=0 OR VGOGR THEN 900 

LOCATE 16,10:PRINT"ZELFDE SPRITE" 

LOCATE 16,13:PRINT"ANDERE SPRITE" 

ON KEY GOSUB 930,890 

KEY(1) ON:KEY(2) ON 

GOTO 880 

KEY(1) OFF 

CLS: N=1 

INPUT"8 DATA'S";DA(N),DA(N+1),DA 
(N+2),DA(N+3),DA(N+4),DA(N+5),DA 
(N+6),DA(N+7) 

IF GR=2 THEN N=N+8:IF N<33 THEN 
910 

KEY(2) OFF 
GOTO 290 
X=21: N=1 :B=128 

IF GR=1 THEN FOR Y=21 TO 91 STEP 
10: ELSE FOR Y=21 TO 171 STEP 10 
I=X:Q=DA(N) 

IF Q>=B THEN LINE(I,Y)-(1+8,Y+8), 
15,BF:Q=Q-B 

B=B/2:1=1+10:IF B> . 5 THEN 980 
N=N+1:B=128:NEXT Y 
IF GR=2 AND X=21 THEN X=101:GOTO 
960 

RETURN 

t 

' VELD TEKENEN 

IF GR=1 THEN 1130 
FOR Y=20 TO 180 STEP 10 
LINE(20,Y)-(180,Y),15 
LINE(Y,20)-(Y,180),15 
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1100 NEXT 

1110 LINE(199,19)-(218,38),15,B 
1120 RETURN 

1130 FOR Y=20 TO 100 STEP 10 
1140 LINE(20,Y)-(100,Y),15 
1150 LINE(Y,20)-(Y,100),15 
1160 NEXT 

1170 LINE(199,19)-(210,30),15,B 
1180 GW=1:RETURN 

1190 ' 

1200 ' SPRITE VERKLEINEN 

1210 ' 

1220 IF GR=1 THEN FOR X=1 TO 8: FOR 

Y=1 TO 8 ELSE FOR X=1 TO 16: FOR 
Y=1 TO 16 

1230 A=POINT(X*10+12,Y*10+12) 

1240 PUT SPRITE 2, (X+200,Y+19),1 
1250 PSET(200+X,20+Y),A 
1260 NEXT Y: NEXT X 
1270 PUT SPRITE 2, (0,209) 

1280 RETURN 
1290 ' 

1300 ' SCHOONMAKEN 

1310 ' 

1320 WW=0:SC=1 

1330 Q=1 

1340 IF GR=1 THEN FOR X=21 TO 91 STEP 
10: FOR Y=21 TO 91 STEP 10 ELSE 
FOR X=21 TO 171 STEP 10:FOR Y=21 
TO 171 STEP 10 

1350 PUT SPRITE 1, (X-l,Y-2) , 1 
1360 IF WW=1 THEN LINE (X, Y) - (X+8, Y+8) , 
SC(Q),BF:GOTO 1390 
1370 SC(Q)=POINT(X+3,Y+3) 

1380 LINE(X,Y)-(X+8,Y+8),4,BF 

1390 Q=Q+1 

1400 NEXT Y, X 

1410 XA=X-11:YA=Y-12 

1420 RETURN 

1430 ' 

1440 ' SCHOONMAKEN ONGEDAAN MAKEN 

1450 ' 

1460 IF SC=0 THEN RETURN 
1470 WW=1 
1480 GOTO 1330 
1490 ' 

1500 ' DATA'S BEPALEN 

1510 ' 

1520 X=22:N=1 

1530 IF GR=1 THEN FOR Y=22 TO 92 STEP 
10 ELSE FOR Y=22 TO 172 STEP 10 
1540 A=0 :B=128 : FOR I=X TO X+70 STEP 10 

1550 P=POINT(I,Y) 

1560 IF P=15 THEN A=A+B 

1570 B=B/2:NEXT I 

1580 DA(N)=A:N=N+1:NEXT Y 

1590 IF GR=1 THEN 1610 

1600 IF X=22 THEN X=102:GOTO 1530 

1610 SCREEN 0 

1620 LOCATE 2,0:PRINT"DATA:" 

1630 N=1: IF GR=1 THEN I=8:GOTO 1650 

1640 FOR 1=8 TO 20 STEP 4 
1650 FOR P=0 TO 7 

1660 LOCATE I,P:PRINT DA(N):N=N+1 
1670 NEXT P: IF GR=2 THEN NEXT I 
1680 LOCATE 2,16:PRINT"Druk de spa 
tie..." 

1690 IF STRIG(O) THEN 60 ELSE 1690 


1700 ' 

1710 ' UITLEG 

1720 ' 

1730 LOCATE 8, 3 :PRINT"M. Visser presen 
teert:" 

1740 LOCATE 12,6:PRINT”Sprite-Editor" 
1750 LOCATE 12,13:PRINT M Uitleg? (J/N)" 
1760 K$=INKEY$ 

1770 IF K$=" j ” OR K$="J" THEN 1800 
1780 IF K$="n" OR K$= M N M THEN RETURN 
1790 GOTO 1760 
1800 CLS 

1810 PRINT" Deze sprite-editor is mak 
kelijk te hanteren, en er is wei 
nig uitleg nodig." 

1820 PRINT "Het enige dat ik even toe 

moet lichten is de functie van en 
kele toetsen:" 

1830 PRINT:PRINT"ESC - uitwissen spri 
te” 

1840 PRINT"TAB - uitwissen ongedaan 

maken (sprite wordt weer getekend) 
1850 PRINT"HOME - tekenen van sprite 
op ware grootte" 

1860 PRINT"BS - opvragen van data's" 
1870 PRINT"INS - terug naar menu" 

1880 LOCATE 7,20: PRINT"- Druk de spa 
tie 

1890 IF STRIG(O) THEN RETURN ELSE 1890 
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Tacton 


De Heer Hendrikse weet ons deze zomer wel te 
vermaken met zijn denkspellen. Dit spel dat wij 
van hem publiceren, zal bij een groot aantal men¬ 
sen de nodige uurtjes van hun vrije tijd kosten. Er 
zijn met dit programma drie variaties mogelijk. 
Het spel wordt uitgebreid uitgelegd na het opstar¬ 
ten zodat wij alleen maar kunnen zeggen: pro¬ 
beer van de computer te winnen. 
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' ********** tacton *********** 

' * * 

' * een spel van ton hendriks * 
' * heemstede * 

' * * 

* ***************************** 

r 

RUN100 

KEYOFF:COLOR15,1,1: SCREEN0 :WIDTH 
4 0:DEFINTA-Z:KEY(1)ON:ONKEYG- 
OSUB90:T=RND(-TIME) 

PRINT"TACTON: tactisch denkspel 
in 3 varianten Elk spel is te on 
derbrek en met toets Fl"; 
PRINTSTRING$(40,"=") 
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PRINT "VARIANT 1: Jy speelt met 
een witte schyf tegen de compu 
ter. (Aantal= afhankelyk van jouw 
niveau!)":PRINT"-Elke schyf mag 
in elke richting gaan of slaan 
(door overspringen) m cursor 
toets"; 

PRINT" Ook diagonaal (dan 2 tege 
lyk indrukken) -Een veld waar jy 
bent geweest, verdwynt-Wie een 
schyf slaat, of de tegenstander 
vastzet, wint! (meestal dus com 
puter!)" 

PRINT"VARIANT 2: Als variant 1 
maar jouw schyf mag alleen hori 
zontaai of vertikaal. " 

PRINT"VARIANT 3: Als variant 1 
met 4x7 velden. Jy moet een groen 
veld rechts bereiken, maar mag 
niet horizontaal naar rechts! " 
PRINT:PRINT"====================> 

WELK SPEL KIES JE?"; 

I$=INKEY$:IFI$<"1"ORI$>"3"THEN180 
IFI$="1"THENM=3:E=1 
IFI$="2"THENM=1:E=2 

IFI$="3"THENM=3:E=1:C=3 

/ 

'randen en bordveld - 


IFM<1THENM=1 

SCREEN2:FORK=2T05+C:F0RR=2T05:GO 
SUB1400:NEXTR,K 

DIMX (7+C, 7) , Z (6+C, 6) , W (M, 8) , K (M) , R 
(M) , H (8) , V (8) 

FORV=0TOl:FORH=0TO7+C 
X (H, V) =3 : X (H, V+6) =3 
NEXTH,V 

F0RV=2T05:FORH=0TOl 
X (H, V) =3 : X (H+6+C,V) =3 
NEXTH,V 

IFE=2THENH=RND(1)*4+2:V=RND(1)*3+2 

:X(H,V)=3:GOSUB1490 

RESTORE370 

F0RT=1T08:READH(T):READV(T):NEXT 
DATA0 ,-1,1,-1,1, 0,1,1,0,1,-1,1,- 
1 , 0 ,- 1,-1 


'plaats witte schyf 


IFC=3THENV=RND(1)*4+2:H=2:GOTO430 
H=RND(1)*4+2:V=5 
X (H, V) =1 
GOSUB1530 


'plaats comp schyven 


FORT=lTOM 

IFC=3THENK(T)=RND(1)*5+4ELSEK(T)= 
RND(1)*4+2 

IFC=3THENR(T)=RND(1)* 4+2ELSER(T) = 
RND(1)*2+2 

IFX(K(T),R(T))>0THEN4 90 
X (K (T) , R (T) ) =2 
K=K(T):R=R(T):GOSUB1450 
NEXT 


' zet v wit 
veld? - 


- is er een vry 
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F0RT=1T08STEPE:IFC=3ANDT=3THEN610 

IFX(H+H(T),V+V(T))=0THEN660 

IFX(H+H(T),V+V(T))=2ANDX(H+2*H(T),V+ 

2*V(T))=0THEN660 

NEXTT 

M=M-1:GOSUB1660:GOSUB1570:GOTO1360 

t 

'wit geeft richting aan - 


CIRCLE(36*H+l+56*(C=3),48*V- 
73) ,3, 15, , ,1.4:FORT=lTO400:NEXT:I= 
STICK(0) 

CIRCLE(36*H+l+56*(C=3) , 48*V- 
73),3,4, ,,1.4:FORT=1T0400:NEXT 
IFI=0THEN660ELSEIFIMOD2=0ANDE= 
2THEN660ELSEIFI=CTHEN660 
P=H(I):Q=V(I) 

r 

'eventuele slagzet v wit - 


IFX(H+P,V+Q)=2ANDX(H+2 *P,V+2*Q) 
=0THENGOSUB1660:G0SUB14 90:X(H,V)=- 
3:H=H+P:V=V+Q:GOSUB1530:K=H:R=V: 
H=H+P:V=V+Q:M=M+1:GOSUB1530:GOSUB 
1620:F0RT=1T08000:NEXT:GOTO1360 
IFX(H+P,V+Q)>0THEN580 


zet v wit 


GOSUB1490 
X (H, V) =3 
H=H+P:V=V+Q 

GOSUB1530:IFH=8THENGOSUB1660: 
GOTO950 
X (H, V) =1 

r 

' zet v comp - kan comp slaan?- 

FORT=lT08 

IFX(H+H(T),V+V(T))=2ANDX(H-H(T),V- 
V(T))=0THENGOSUB1660:K=H+H(T):R= 
V+V(T):G0SUB1400:K=H:R=V:GOSUB 
1400:K=H-H(T):R=V-V(T):M=M-1:GOSUB 
1450:GOSUB1570:GOTO1360 
NEXT 


'comp schyven ingesloten? - 

t 

F0RS=1T0M:FORT=lT08 
IF (X (K (S) +H (T) , R (S) +V (T) ) =0) OR 
(X(K(S)+H(T),R(S)+V(T))=1ANDX(K(S) 
+2*H(T), R (S)+2*V(T))=0)THEN1010 
NEXTT,S:GOSUB1660 
F0RR=2T05:F0RK=2T05+C:IFX(K,R)=2 
THENG0SUB162 0 
NEXTK,R 

FORT=1T08000:NEXT:M=M+1:GOTO1360 

/ 

' comp zoekt beste zet - 


ERASEZ:DIMZ(6+C,6):F0RT=1T08-CSTE 
PE:Z(H+H(T),V+V(T))=1:NEXT 
ERASEW:DIMW(M,8) 

F0RS=1T0M 

FORT=lT08:IFX(K(S)+H(T),R(S) 

+V(T)) >0THENW (S,T)=0:GOTO1180 
K=K(S) :R=R(S) :X(K,R)=0 
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K=K+H (T) : R=R+V (T) :X(K,R)=2 
W (S, T) =8- (ABS (H-K) +ABS (V-R) ) 

VS=0 

F0RA=1T08 

IFZ(K+H(A),R+V(A))=1ANDX(K+2*H 
(A),R+2*V(A)) =0THENW (S,T)=W(S,T)+10 
NEXTA 

F0RA=1T08STEPE 

IFX(H+H(A),V+V(A))=2ANDX(H+2*H 
(A),V+2*V(A) )=0THENW(S, T)=l 
IFX(H+H(A),V+V(A))=0THENVS=1 
NEXTA 

IFVS=0ANDW(S, T) >1THENW(S, T) =90 
X (K, R) =0 : X (K-H (T) , R-V (T) ) =2 
NEXTT 
NEXTS 

r 

'bepaal hoogste waarde - 


W=0 

F0RA=1T0M:F0RB=1T08 

IFW(A,B)>WTHENS=A:T=B:W=W(A,B) 

NEXTB,A 

K=K(S):R=R(S):GOSUB1400 
X (K, R) =0 

K(S)=K(S)+H(T) : R (S) =R (S) + V (T) 
K=K(S) :R=R(S) :X(K,R)=2 
GOSUB1450 
GOTO580 

t 

'subroutine einde spel - 


CLS:ERASEX,Z,W,K,R,H,V:GOTO250 
/ 

'subroutine wissen comp schyf — 

f 

X=36*K-16+56*(C=3):Y=48*R-96:KL= 
5+2*(K=8)+((R+K)M0D2=1):LINE(X,Y)- 
(X+35, Y+47),KL,BF 
RETURN 

f 

'subroutine teken comp schyf - 

t 

X=36*K+l+56*(C=3):Y=48*R-73:CIR 
CLE(X,Y),18,9,,,1.4:PAINT(X,Y) 

,9:RETURN 

r 

'subroutine wissen witte schyf — 

r 

X=36*H-16+56*(C=3):Y=48*V-96:LINE 
(X,Y)-(X+35,Y+47),1,BF:RETURN 

r 

'subroutine teken witte schyf — 

/ 

X=36*H+l+56*(C=3):Y=48*V-73:CIR 
CLE (X, Y) , 18,15, , , 1.4 : PAINT (X, Y) 

,15:RETURN 

r 

'subroutine teken wit kruis - 

r 

G0SUB1490:LINE(X+15,Y+7)-(X+20, 
Y+40) , 15, BF:LINE(X+8,Y+15)-(X+27, 
Y+21),15,BF 

FORT=1T08000:NEXT:RETURN 

f 

'subroutine teken comp kruis - 
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X=36*K-16+56*(C=3):Y=48*R-95: 

LINE(X,Y)-(X+35,Y+47),1,BF:LINE 
(X+15,Y+7)-(X+20,Y+40),9,BF:LINE 

(X+8,Y+15)-(X+27,Y+21),9,BF:RETURN 
/ 

'subroutine flikkeren border - 

r 

F0RA=1T05:CO- 

LOR1,15,15:FORB=lTO70:NEXTB:COLOR 
15,6,6:FORB=lT07 0:NEXTB,A:COLOR 
15,1,1:FORA=lTO1000:NEXT:RETURN 
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Tapsco 


Dit programma maakt van uw beeldscherm een 
‘SCOOP’. Er wordt een ‘grafiek’ op het scherm 
getekend met horizontaal de tijd en vertikaal de 
frequentie. 

De bijbehorende schalen zijn instelbaar van 1 - 9. 
Nadat het programma is gestart, kunt u dit opge¬ 
ven. Een default waarde is H=5 en V=5. Vervol¬ 
gens verschijnt voor korte tijd de tekst ‘Geef sig¬ 
naal !! Dit betekent dat de cassette recorder op 
weergave dient te worden geschakeld. Even later 
wordt de frequentie van het cassette-signaal op 
‘SCREEN 2’ getoverd. Het beeld is te bevriezen 
(‘storage-scoop’) d.m.v. de STOP-toets. Eindigen 
is mogelijk met (CTRL-STOP. Clear-screen met 
(SPATIE) en de schalen zijn te veranderen d.m.v. 
de cursortoetsen. Middels een ‘sound-statement’ 
is de getoonde frekwentie hoorbaar. 

Nadat de getekende lijn rechts uit het beeld ver¬ 
dwijnt, wordt het scherm schoongepoetst en 
wordt links in het beeld verder gegaan; tevens 
wordt dan de (gewijzigde) schaalinstelling in het 
beeld ‘ge-updated’. 

Opm.: De frekwentie van het aangeboden signaal 
(1200-4000 Baud), wordt bepaald door een teller 
op te hogen, gedurende een aantal volledige pe¬ 
riodes. De gemeten waarde is een 'gemiddelde’ 
over deze periodes. Wordt er signaal aangebo¬ 
den, dan komt de teller boven een bepaalde 
waarde en wordt ‘gereturned’. 

Opm.: Voor de liefhebbers is dit programma te 
verfraaien door b.v. assen te tekenen, compleet 
met een geijkte schaalverdeling. Aardig is ook 
om een ‘normaal’ audiosignaal toe te voeqen 
etc. 

Opm. Het is mogelijk om aan het einde van een 
‘lange’ header de file-informatie te ontdekken. 
Ook aardig is om de ‘lange’ en ‘korte’ headers 
van een ASCII-File te zien. 

Opm. Een ‘gouden’ tip voor een vervolgprogram¬ 
ma is het volgende. Door gebruik te maken van 
twee tellers, (namelijk 1 voor de positieve delen 
en 1 voor de negatieve delen van het signaal), 
kan men de ‘KOPSTAND’ controleren! Staat de 
kop van de cassette recorder n.l. GOED inge¬ 
steld (op het aangeboden signaal), dan is per 
definitie de tijdsduur van het ‘positieve-signaal’ 
gelijk aan de tijdsduur van het ‘negatieve-sig- 
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naai’. Met 2 tellers is dit eenvoudig te controleren 
en kan men de kop op een ideale stand ( voor 
het aangeboden signaal) instellen. De maker van 
dit programma is L.W. Guse uit Heerhugowaard. 

1000 ' TAP SCO . BAS 

1010 ' === === = 

1020 ' 

1030 '(c) L.Guse Heerhugowaard 

1040 ' 

1050 ' 

1060 CLEAR 200, &HD000 :CLS:KEY OFF 
1070 ON STOP GOSUB 1580: STOP ON 
1080 PRINT"TAPSCO.BAS 
1090 PRINT"========== 

1100 PRINT:PRINT:PRINT 
1110 PRINT"Storage met STOP 
1120 PRINT 

1130 PRINT"Schalen met Cursor-toetsen 
1140 PRINT 

1150 PRINT"Nieuw met <SPATIE> 

1160 PRINT 

1170 PRINT"Einde met <CTRL>STOP 

1180 PRINT:PRINT:PRINT 
1190 PRINT"Tijd schaal horizont. (1- 
9,d=5) "; 

1200 INPUT TY:IF TY=0 THEN TY=5:IF 
TY<1 OR TY>9 THEN GOTO 1240 
1210 TX=(2*TY)/64 

1220 PRINT 

1230 PRINT"Freq.schaal vertikaal (1- 
9,d=5) "; 

1240 INPUT FR:IF FR=0 THEN FR=5:IF 
FR<1 OR FR>9 THEN GOTO 1240 
1250 FX=135*(FR^3) 

1260 PRINT:PRINT:PRINT 
1270 PRINT"Geef signaal !!" 

1280 FOR 1=1 TO 1500 :NEXT:MOTOR ON 
1290 ' ============================= 

1300 B=&HD000 :DEF USR0=B 

1310 READ A$: IF A$<>"HU" THEN POKE 
B,VAL("&H"+A$):B=B+l:GOTO 1310 
1320 SCREEN 2:XX=255-TX 
1330 SOUND1,0:SOUND7,62:SOUND8,15 
1340 OPEN"grp:"AS #1:PRESET(255,191) 

1350 ' ============================= 

1360 FY=USR (0) : IF FY=0 THEN FY=10^5 
1370 FY=FX/FY:FY=190-FY:IF FY<0 THEN 
FY=0 

1380 DRAW"M=XX;,=FY;”:XX=XX+TX 
1390 IF FY>189 THENFY=0 
1400 SOUND 0, FY 

1410 K$=INKEY$:IF K$=""THEN GOTO 1420 
ELSE GOSUB 1490 

1420 IF XX<255-TX THEN GOTO 1360 
1430 XX=1:CLS 

1440 PRESET(5,5):PRINT #1," Tapsco" 

1450 PRESET (5, 15) : PRINT#1, " H = " ; TY 
1460 PRESET(5,25) :PRINT#1, ” V = " ; FR 
1470 GOTO 1360 

1480 ' =========================== 

14 90 IF ASC (K$) =28 AND TY<9 THEN 
TY=TY+1:GOTO 1530 

1500 IF ASC (K$) =29 AND TY>1 THEN TY=TY- 
1:GOTO 1530 

1510 IF ASC (K$) =30 AND FR<9 THEN 
FR=FR+1:GOTO 1530 


1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 


IF ASC (K$) =31 AND FR>1 THEN FR= 
FR-1 

TX=(2^TY)/64 
FX=135*(FR A 3) 

IF ASC(K$)=32 THEN CLS:XX=0:RE 

TURN1440 

RETURN 


SCREEN 0:STOP OFF:CLS:STOP ON 
CLOSE:MOTOR OFF 
PRINT"Einde van TAPSCO.BAS 


DATA 06,0B,21,00,00,3E,0E,D3,A0 

DATA 23,CB,54,20,2F 

DATA DB,A6,CB,7F, 20, F5 

DATA 23,CB,54,20,24 

DATA DB,A6,CB,7F,28, F5 

DATA 21,00,00 

DATA 23,CB,54,20,16,DB,A2,CB,7F 
DATA 2 0,F 5,2 3,CB,54,20,0B, DB,A2 
DATA CB,7F,28,F5,10,E8,22,F8,F7 
DATA C9, HU 


Tapsco LISTTEST 


regel 

: 1000 

- 

58 

regel 

: 1380 

- 

224 

regel 

: 1010 

- 

58 

regel 

: 1390 

- 

93 

regel 

: 1020 

- 

58 

regel 

: 1400 

- 

160 

regel 

: 1030 

- 

58 

regel 

: 1410 

- 

0 

regel 

: 1040 

- 

58 

regel 

: 1420 

- 

157 

regel 

: 1050 

- 

58 

regel ; 

: 1430 

- 

138 

regel 

: 1060 

- 

161 

regel 

: 1440 

- 

70 

regel 

: 1070 

- 

81 

regel ; 

: 1450 

- 

81 

regel : 

: 1080 

- 

129 

regel : 

: 1460 

- 

84 

regel : 

: 1090 

- 

21 

regel 

: 1470 

- 

236 

regel : 

: 1100 

- 

39 

regel : 

: 1480 

- 

58 

regel : 

: 1110 

- 

20 

regel : 

; 1490 

- 

156 

regel : 

: 1120 

- 

145 

regel : 

: 1500 

- 

148 

regel : 

: 1130 

- 

100 

regel : 

: 1510 

- 

95 

regel : 

: 1140 

- 

145 

regel ; 

; 1520 

- 

135 

regel : 

: 1150 

- 

65 

regel : 

: 1530 

- 

228 

regel : 

: 1160 

- 

145 

regel : 

: 1540 

- 

8 

regel : 

: 1170 

- 

211 

regel : 

: 1550 

- 

187 

regel : 

: 1180 

- 

39 

regel : 

: 1560 

- 

142 

regel : 

: 1190 

- 

156 

regel : 

: 1570 

- 

58 

regel : 

: 1200 

- 

157 

regel : 

1580 

- 

195 

regel : 

: 1210 

- 

228 

regel : 

1590 

- 

167 

regel : 

: 1220 

- 

145 

regel : 

1600 

- 

171 

regel : 

: 1230 

- 

229 

regel : 

1610 

- 

58 

regel : 

: 1240 

- 

52 

regel : 

1620 

- 

180 

regel : 

: 1250 

- 

8 

regel : 

1630 

- 

97 

regel : 

1260 

- 

39 

regel : 

1640 

- 

60 

regel : 

: 1270 

- 

109 

regel : 

1650 

- 

79 

regel : 

1280 

- 

252 

regel : 

1660 

- 

68 

regel : 

1290 

- 

58 

regel : 

1670 

- 

255 

regel : 

1300 

- 

61 

regel : 

1680 

- 

251 

regel : 

1310 

- 

69 

regel : 

1690 

- 

225 

regel : 

1320 

- 

93 

regel : 

1700 

- 

8 

regel : 

1330 

- 

3 

regel : 

1710 

- 

201 

regel : 

1340 

- 

150 

regel : 

1720 

- 

58 

regel : 

1350 

- 

58 





regel : 

1360 

- 

189 

Totaaltelling: 


8431 

regel : 

1370 

- 

195 






o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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MSX-INFO 

Lezersservice 


Moe van het 
overtikken van de 
listings uit MSX-INFO? 

Maak het uzelf gemakkelijk, 
bestel gewoon een 

MSX-Infolist diskette 

Daarop staan alle programma’s uit dit blad, zodat het overtikken tot het verleden 
behoort en u de draaiende programma’s gemakkelijk kunt bekijken, 
maar ook weer kunt veranderen of aanvullen. 



Prijs per diskette ƒ15,- (incl. verzendkosten en BTW) 


nr. 

MSX-Infolist 1 
MSX-Infolist 2 
MSX-Infolist 3 
MSX-Infolist 4 
MSX-Infolist 5 
MSX-Infolist 6 
MSX-Infolist 7 
MSX-Infolist 8 
MSX-Infolist 9 
MSX-Infolist 10 
MSX-Infolist 11 
MSX-Infolist 12 


Beschikbaar: 


inhoud van de diskette 


Alle listings van no 
Alle listings van no 
Alle listings van no 
Alle listings van no. 
Alle listings van no 
Alle listings van no 
Alle listings van no 
Alle listings van no 
Alle listings van no 
Alle listings van no 
Alle listings van no 
Alle listings van no 


. 1,2 en 3 uit Jrg. 1 (’85) 

. 4 en 5 uit Jrg. 1 
. 6 uit Jrg. 1 

7 uit Jrg.1 + 1 uit Jrg.2 (’86) 
. 2 en 3 uit Jrg. 2 
. 4 en 5 uit Jrg. 2 

1 en 2 uit Jrg. 3 (’87) 

. 3 en 4 uit Jrg. 3 

5 uit Jrg. 3 + 1 Jrg. 4 (’88) 

2 uit Jrg. 4 

3 en 4 uit Jrg. 4 

1 + 2 uit Jrg. 5 (’89) 


Bestellen: 

De Infolist diskettes kunnen alleen maar 
worden besteld door overmaking van het be¬ 
drag op giro 3157656 t.n.v. Infolist, Amster¬ 
dam. Voor België: stort Bfr. 300 op BBL nr. 
310050602562 tnv SAC. 

Nadat uw betaling is ontvangen, sturen wij u 
de diskette op, maar dat kan soms even du¬ 
ren vanwege de produktietijd. 

Inl.: werkdagen: 02152-62343, 

PB 1047, 1270 BA Huizen 


Vermeld bij uw bestelling 
welke diskette u wilt 
ontvangen. 


INFOLIST Postbus 1047 
1270 BA HUIZEN 











Een uitgekiende utility voor de MSX en de SV.328 om op een handige wijze vierkanten in iedere 

richting op een grafisch scherm te kunnen tekenen. Tevens een beperkte mathematische uitleq hoe 
zoiets tot stand komt. a 


Line, B super 


Met de LINE, B instructie biedt de interpreter in de computer ons 
een handige grafische opdracht, een die ons veel werk uit handen 
neemt. Trek een lijn (regel 110, zet er een ,B achter (regel 130, B = 
box = doos) en de lijn wordt een vierkant: 


100 

REM * voorbeeld lijn en 

vierkant * 

110 

SCREEN 2 

: '.328 SCREEN 1 

110 

LINE(75,50)-(157,25),15 

: 'lijn 

120 

i 

130 

LINE(75, 75)-(175, 100) , 15 

,B : 'vierkant 

140 

GOTO 140 


150 

END 



Wat nu opvalt, is dat het vierkant altijd 
is opgebouwd uit horizontale en verti- 
kale lijnen. Teneinde aan deze beper¬ 
king te ontkomen, willen we daarom 
proberen door middel van een zelf ge¬ 
maakte routine een vierkant te con¬ 
strueren dat een willekeurige stand 
inneemt op het scherm. 

Daar er hier enig rekenwerk aan te 
pas komt, is het een gelukkige om¬ 
standigheid dat de computer dit voor 
zijn rekening kan nemen en daarna, 
dat wat hij heeft berekend, kan inves¬ 
teren in een projectie op het scherm. 
Dit stelt ons in staat, na het opgeven 
van twee schermpunten (XI ,Y1) en 
(X2,Y2), een vierkant ABCD te teke¬ 
nen loodrecht op de lijn tussen die 
twee punten. 

Wiskunde 

De meeste lezers zullen willen be¬ 
amen het (bijna) nooit leuk te vinden 
iets dergelijks wiskundig bewezen te 
zien en mathematisch na te gaan hoe 
zoiets wordt rondgebreid. 

In dit artikel is het desondanks juist de 
bedoeling (summier) te bespreken 
hoe we tot zo’n routine komen. Aan 
de hand van figuur 1 gaan we onze 
eenvoudige redenering opbouwen. 

PSET 

Het beeldscherm van een monitor of 
TV fungeert voor sommige toepassin¬ 
gen als een (goniometrisch) vlak. Op 
dit vlak zijn we in staat, als op een vel 
papier, punten neer te zetten. De geë¬ 
igende opdracht in Basic hiervoor is 


PSET. Over het algemeen geeft men 
die punten op papier aan met een 
hoofdletter, bijvoorbeeld punt A. B, C 
of P. 


A (1Q20) 


B (2015) 

-7 


C (15.5) 


Figuur 1 

X- en Y-as 

Het is gebruikelijk 
punten uit te zetten 
in een vlak be¬ 
grensd door twee 
assen, de X-as en 
de Y-as. Op deze 
assen zijn de af¬ 
standen aangege¬ 
ven vanaf de oor¬ 
sprong, punt (0,0). 
Op deze wijze is 
een punt in het vlak 
X,Y bepaald door 
de X-afstand en de 
Y-afstand. Meestal 
spreken we over de 
X-coördinaat en de 
Y-coördinaat. Punt 


A kunnen we aangeven als A(X,Y) of 
zoals in figuur 1 als A(20,10), enz. 

De afstanden kunnen we aangeven in 
bijvoorbeeld een aantal pixels, waar¬ 
bij de X-as de onderzijde van het 
scherm is en de Y-as de linker zijde 
van het beeldscherm. 

A(20,10) wordt dan door Basic op het 
scherm gezet middels PSET(20,10) 
en punt B(20,15) door PSET(20,15), 
enz. 

Let er op dat, waar we in dit assen¬ 
stelsel het punt (0,0) links onder aan¬ 
treffen, dit punt op het beeldscherm 
links boven is gesitueerd. 

Pixels 

De coördinaten van bijvoorbeeld punt 
A(X1 ,Y1) in figuur 2 geven tevens het 
aantal pixels aan (langs de X-as) dat 
het punt verwijderd is van de Y-as, 
dus van de linkerzijde van het beeld¬ 
scherm. 

Dit aantal pixels is derhalve de ‘leng¬ 
te’ van de verbindingslijn linkerkant 
scherm -> punt A(X1,Y1). Hetzelfde 
geldt voor punt B(X2,Y2). 

Trekken we deze twee lengten van 

elkaar af, dus: 

lengte BC = XI - X2 

dan houden we een lijnstuk over ter 
lengte van BC. 



Figuur 2 


52 


MSX Info 3/89 

















100 

REM -- routine LINE,B super — 

110 

CLS 


120 

INPUT " pos xl,yl" 

; xi,Yl 

130 

INPUT " pos x2,y2" 

; X2,Y2 

135 

IF (X1>X2) AND (Y1<Y2) 

THEN SWAP Y1,Y2 

137 

IF (X1>X2) THEN SWAP XI,X2 

140 

CF=.75: IF Y2>Y1 THEN 

CF=-CF 

150 

X3=X2+ABS(Y1-Y2)* CF : 

X4=X1+ABS(Y1-Y2)* CF 

160 

Y3=Y2+ABS(X1-X2)*1.25: 

Y4=Y1+ABS(X1-X2)*1.25 

200 

: 


205 

OPEN "GRP:" FOR OUTPUT 

AS #1 

210 

COLOR,5,2: SCREEN 2 


220 

LINE(0,0)-(255,191),1 , 

, B 

230 

LINE(XI,Yl)-(X2,Y2) 


240 

LINE (X2, Y2) - (X3, Y3) 


250 

LINE(X3,Y3)-(X4,Y4) 


260 

LINE (X4, Y4) - (XI, Yl) 


270 

PRESET(24,2) 


280 

PRINT #1, ” voor nieuwe pos. druk toets": 


CLOSE #1 


290 

A$=INPUT$(1) 


300 

GOTO 110 


310 

END 



Coördinaten kunnen voor ieder plekje 
van het scherm opgegeven worden 
(uiteraard binnen de uitersten X = 255 
en Y = 191) en hebben in het alge¬ 
meen verschillende waarden. Bij af¬ 
trekken kan dit uitkomen op een ne¬ 
gatieve lengte, hetgeen dus geen en¬ 
kele betekenis heeft. Daarom werken 
we in dit geval met absolute waarden, 
waarden zonder teken. Dit houdt in 
dat 15 - 8 gelijk wordt aan 8-15, 
hetgeen we noteren als |1 5 - 8| = |8 - 
15|, de absolute waarden van beide 
aftrekkingen zijn gelijk aan elkaar. In 
het vorige geval wordt dit: 

AB = | XI - X2 | 

zodat deze punten waar dan ook ge¬ 
situeerd mogen zijn. 

In de rechthoekige driehoek ABC van 
figuur 2 gaat deze redenering ook op 
voor het lijnstuk BC. De lengte van 
lijnstuk BC is gelijk aan de absolute 
waarde van XI - X2, oftewel BC = |X1 
- X2|. Op deze wijze is de lengte van 
lijnstuk AC = |Y1 - Y2|. 

Line 

Aan de hand van dezelfde gedach¬ 
tengang kunnen we in figuur 3 de 
lengten BQ, CQ, en AR en DR bere¬ 
kenen en de coördinaten van de pun¬ 
ten C en D vinden. 

De rechthoekige driehoeken ABP, 
BCQ en ADR zijn gelijk en gelijkvor¬ 
mig. Hieruit volgt: 

BP = |XI - X2| en 
AP = I Y1 - Y2 | 

CQ = |XI — X2| en 
BQ = | Y1 - Y21 

derhalve: 

X3 = X2 + | Y1 - Y2 | 

in Basic: 


X3=X2+ABS(Y1-Y2) 

enz.... 

Verbinden we nu de coördinaten 
A(X1 ,Y1), B(X2,Y2), C(X3,Y3) en 
D(X4,Y4) door middel van de instruc¬ 
tie LINE, dan ontstaat een vierkant 
dat niet alleen horizontale en vertikale 
lijnen kent, maar dat eveneens onder 
een willekeurige hoek op het scherm 
kan worden afgebeeld als dit zo uit¬ 
komt. 


pervlak blijft met de uitwerking van de 
coördinaten. Anders zult u opnieuw 
de begincoördinaten dienen op te ge¬ 
ven. Van tevoren een goed plan ma¬ 
ken is echter het beste. Je kunt nu 
eenmaal niet alles hebben - tegelij¬ 
kertijd. Voor dit laatste hebben we 
maar gekozen in ons geval, zodat de 
LINE,B super routine uiteindelijk uit¬ 
mondt in het volgende programma: 

SV.328 

Voor de SV.328 machines dienen er 
enkele modificaties in het programma 
te worden aangebracht. Deze zijn: 
regel 205 vervalt. 

regel 210,270 en 280 worden vervan¬ 
gen door: 

210 COLOR,5,2: SCREEN 1 
270 LOCATE 24,2 
280 PRINT ' voor nieuwe 
pos. druk toets” 


Doel 

Het is de bedoeling dat dit programma 
dient als een utility dat waar nodig als 
subroutine aan het hoofdprogramma 
kan worden toegevoegd. We denken 
hierbij aan ‘ProCAD’ of andere teken¬ 
programma’s. 

In korte (hoofd)programma’s zou het 
aan te raden zijn er een INPUT op 
SCREEN 2 routine aan toe te voegen 
(voor SV.328 INPUT op SCREEN 1). 
Wouter Alexander 

Dit artikel is met toestemming overgeno¬ 
men van het C.U.C. 



De variabele CF, in de uiteindelijke 
Basic routine, die we hieronder ge¬ 
ven, en de waarden 0,75 en 1,25 zijn 
nodig om de schermongelijkheid in X- 
en Y-richting te corrigeren. Daarnaast 
treffen we nog twee IF - TH EN voor- 
waarderegels aan, die ervoor zorgen 
dat de vierkanten in de juiste richting 
op het scherm komen te 
staan voor iedere volgorde 
van de ingegeven XI, X2 
en Y1 en Y2 coördinaten. 


Probleem 

Het grote probleem dat 
zich hierbij aandient, is de 
vertekening wanneer de 
hoekpunten van het vier¬ 
kant buiten de oppervlakte 
van het scherm gaan val¬ 
len. Iets dergelijks zien we 
eveneens optreden bij het 
gebruik van de DRAW en 
SCALE instructies. Daar¬ 
om dient u ervoor te zorgen 
dat u binnen het schermop- 
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Het ontwerp- en tekenprogramma ProCAD V 4.55 heeft zeer unieke eigenschappen De kracht 

tPkS n in°n dankS d3 h h + et !!L BaSI J Werd 9 e P r ogrammeerd, is onder andere dat we kunnen tekenen en 
tekst invoeren op hetzelfde scherm. ProCAD werd ontwikkeld door het C.U.C. 


ProCAD V 4.55 voor MSX-2 

Artistiek en semi-technisch ontwerp- en 
tekenprogramma met unieke features 


Versie 1.0 van ProCAD was oorspronkelijk ontworpen voor de Spec- 
traVideo.328 en de latere versie 3.1 voor de MSX-1 computer. In die 
versie waren er ook meer functies ingebouwd dan in de SV.328 
versie. Het pakket werd zo populair dat de makers ook een versie 
voor de MSX-2 uitbrachten. In deze ProCAD V 4.55 zijn opnieuw 
enige opties extra in het programma aangebracht. Om het program¬ 
ma op de MSX te laten draaien, moet er wel het een en ander aan 
listingregels (zie verder) ingetikt worden, maar dan heb je ook iets 
moois. 


ProCAD kan voor verschillende doel¬ 
einden gebruikt worden. Een veelge¬ 
bruikte toepassing is bijvoorbeeld mo¬ 
delbouw tekeningen te maken met 
behulp van ProCAD. Vervolgens kun¬ 
nen de tekeningen via een kopieerap- 
paraaat vergroot of verkleind worden, 
waarna de tekeningen (al of niet op 
triplex o.i.d. overgezet) kunnen die¬ 
nen voor modelbouw. 

Ook wiskundig moeilijk te realiseren 
figuren kunnen we met ProCAD op 
het scherm tekenen. In samenwer¬ 
king met het screendump programma 
Cameleon zijn er via de printer al heel 
wat meer zaken mogelijk dan tot nu 
toe. 

Omdat het in Basic is geprogram¬ 
meerd, kan de gebruiker ook in de 
listing terugvinden hoe je in Basic re¬ 
kent om een cirkel(deel) op het 
scherm te kunnen projecteren, hoe 
INPUT op het grafisch scherm wordt 
geprogrammeerd, hoe diverse ande¬ 
re zaken in Basic worden opgelost, 
etc. 


Twee punten 

Als uitgangspunt van een ontwerp 
hoeven we slechts met twee punten 
in te geven (F1 en Fx), waar diverse 
figuren als punten, lijnen, cirkels of 
cirkeldelen, rechthoeken en vierkand- 
ten via knopdruk op het scherm wor¬ 
den geplaatst. De coördinaten van 
alle door ons gekozen punten zijn 
continu boven in de echoregel af te 
lezen (en derhalve zo nodig op papier 


over te nemen), zodat we op ieder 
moment over alle gebruikte posities 
op het scherm blijven geïnformeerd. 
Zelfs het verplaatsen van blokken 
scherm met figuren en/of tekst is 
‘even’ te realiseren (‘F7/F8’). En met 
F10 kunnen we onze artistieke ont¬ 
werpen op schijf bewaren. 

Natuurlijk is er in voorzien om het ont¬ 
werp of tekening op papier te krijgen 
door een ingebouwde eenvoudige 
screendump. Aan te raden is echter 
‘Cameleon’ (een universeel screen¬ 
dump programma van het C.U.C.) toe 
te passen. 


F1 

Nog steeds is, in de laatste versies 
van ProCAD, F1 de centrale toets die 
de plaats van het eerste punt van een 
figuur op het scherm vastlegt. Met 
cursor of joystick besturing kunnen 
we de tekencursor over het gehele 
tekenveld bewegen, terwijl de X- en 
Y-posities ervan rechtsboven in het 
scherm worden vermeld. Naar belie¬ 
ven kunnen we F1 activeren, waarvan 
de X- en Y-coördinaten dan links wor¬ 
den aangegeven. 

Bewegen we de tekencursor en druk¬ 
ken we gelijktijdig op de spatiebalk, 
dan kunnen we naar believen lijnen 
trekken in de door ons gewenste 
vorm. 

Daar ProCAD opstart met (P = Pot¬ 
lood) witte lijnen op een blauwe ach¬ 
tergrond, kunnen we binnen een ge¬ 
sloten lijn met ‘V’ een vlak met wit 


inkleuren. In dit witte vlak kunnen we 
ook weer tekenen door ‘G’ (G = Gum¬ 
men) in te drukken, waardoor we met 
een blauwe lijn tekenen. Met ‘P’ krij¬ 
gen we weer de oorspronkelijke witte 
potloodkleur. 

Linksonder in de statusregel staat 
steeds af te lezen of we tekenen of 
gummen, of welke kleur er onder de 
tekencursor staat. 


Kleurkeuze 

ProCAD kent ook een kleurkeuze. 
Met ‘K’ verschijnt linksonder in de sta¬ 
tusregel een blok dat de nu te kiezen 
kleur aanduidt. ‘N’ geeft de volgende 
kleur en ‘J’ legt de afgebeelde kleur 
vast hetgeen een * aantoont. Daar 
ProCAD ook de voorlaatste kleur ont¬ 
houdt, kunnen we eenvoudig een wit¬ 
te cirkel of vierkant opvullen met een 
rode kleur, of kleuren naar wens. 

Met ‘S’ en T kunnen we kiezen tus¬ 
sen een snelle of een langzame cur- 
sorsnelheid, hetgeen bij nauwkeurige 
correcties wel eens gemakkelijk kan 
zijn. 

Met ‘B’ kan een puntraster op het 
scherm worden geprojecteerd, zodat 
het mogelijk is tekeningen op schaal 
te maken. Is het ontwerp klaar, dan 
wordt met ‘N’ het puntraster verwij¬ 
derd en vervolgens kan de tekening 
naar de printer of diskette gestuurd 
worden. 
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Tweede punt 

Nadat we met F1 ons eerste punt 
hebben vastgelegd, kiezen we met F2 
tot en met F9 een tweede punt. Tus¬ 
sen deze punten verschijnen dan de 
lijnen, cirkels, rechthoeken, vierkan¬ 
ten, blokken, enz... 

Dit tweede punt mag te allen tijde in 
een willekeurige richting ten opzichte 
van het eerste punt worden gekozen. 
Steeds na het kiezen van een punt 
verspringt de cursor, Dit geeft ons de 
gelegenheid het gekozen punt te kun¬ 
nen beoordelen en met ‘J’ of ‘N’ het 
wel of niet te kiezen. Met ‘D’ kiezen 
we een halve cirkel. Daarna gaat de 
cursor weer naar zijn oorspronkelijke 
positie. 

Met F6 kunnen we op de cursorpositie 
tekst invoeren (deze PRINT mode 
wordt in de echoregel aangegeven) 
en met F1 en F7 een blok (figuur en/of 
tekst) verplaatsen naar een punt 


rechtsonder een met F8 vast te leg¬ 
gen positie. Dit kan worden herhaald. 
Nieuw in ProCAD zijn de volgende 
opties: 

° tijd gelijk stellen (over te slaan met 
het bewegen van de cursortoetsen) 
° opvragen tijd met ‘U’ en 
° uitvoeren van berekeningen met ‘R’ 
en dus 200/5.25 = 38.0952 en 
345 * 45 = 15525 (Ook meer ge¬ 
compliceerde berekeningen zijn 
mogelijk, zie hieronder) 

“tekenen van halve cirkels met ‘D’ 

“tekening wegschrijven naar schijf 
met F10, met een zelf te bepalen 
naam en onder ProCAD ook weer 
binnen te halen met ‘C’. Op deze 
wijze kunnen we niet alleen een te¬ 
kening bewaren, maar ook steeds 
weer in ProCAD opvragen en weer 
bewerken. Het feit dat het program¬ 
ma onder MSX-2 werkt, verzekert u 


van exactere ontwerpen. Tevens 
bent u nu in staat halve cirkels te 
tekenen en gedetaileerd in kleur te 
werken. 


Rekenen 

Ten opzichte van de vorige versie 4.3 
is ProCAD 4.55 is de rekenroutine 
vernieuwd, nu met een stukje machi¬ 
netaal, zodat zelfs het opvragen van 
SIN(30)<ENT> geen problemen meer 
oplevert en er ook meerdere getallen 
tegelijk rekenkundig bewerkt kunnen 
worden en zelfs formules 
4*ATN(1)*SIN(30) A 2(9*3) A 3 <ENT> - 
uitgewerkt. 

Wouter Alexander 
Meer informatie over ProCAD is te verkrij¬ 
gen bij het C.U.C., Postbus 202, 2300 AE 
Leiden. 


Handleiding ProCAD 

Met RUN"A:PROCAD" het programma opstarten 

(J) indien u de tijd wilt invoeren of aanpassen (blijft steeds in het geheugen van de computer staan), na J de tijd intikken, 

(N) bijvoorbeeld 1930 of 0515, enz. Met N komen we in ProCAD. Het aanraken van de cursortoetsen doet het zelfde als "N" 

(U) u kunt steeds de tijd opvragen met "U", dat met 

(@) een verdwijnt 

(R) ook de rekenoptie wordt met een beëindigd, doch opgeroepen met "R". Het kan bijvoorbeeld gebruikt worden voor 
het berekenen van de afstand of het middelpunt tussen twee punten. Voorbeelden zijn: 125*125 = 15625; 255+345 = 600‘ 
500/111 = -45.4545 120*-120 = 14400 650-300 = 350 12.5M9 = 237.5 

(G) tekenen doet u met de cursortoetsen of een joystick + het indrukken van de spatiebalk. Drukt u op de "G", dan wordt in de 
achtergrondkleur getekend, oftewel gegumd 

(P) De "P" geeft u opnieuw de beschikking over de witte tekenstift 

(K) een nieuwe tekenkleur kiezen kunt u met toets "K". Links onder in het beeld ziet u een vlakje dat de nieuwe kleur aangeeft. 

(N) "N" zorgt voor een volgende kleur 

(J) met "J" verschijnt er een ster achter het vlakje van de kleur naar uw keuze, ten bewijze dat de nieuwe kleur is vastgelegd. 
U kunt met "P" altijd onmiddelijk terug naar de originele tekenkleur, of met "G" naar de oorspronkelijke gumkleur. 

(V) het vullen van een vlak gaat met "V", maar een donkere cirkel in een licht vlak kleurt u in met "G" en "V". Let erop dat u 
vlakken nu ook kunt vullen in een eventueel nieuw gekozen tekenkleur 

(S) indien u enige punten wat nauwkeuriger wilt vastleggen, kan de snelheid van de tekencursor 

(T) met "T" vertraagd worden en daarna met "S" weer de normale snelheid teruggegeven worden 

(W) indien de tekening niet geslaagd is, kan hoofdletter "W" het scherm wissen 

(H) het programma opnieuw opstarten doet u met hoofdletter ”H" 

(C) had u een tekening op schijf weggeschreven, met "C haalt u die tekening onder "ProCAD" rechts onder aan de 

cursorpositie weer binnen. Na "C intoetsen gaat "PRINT" aan, nu de filenaam intikken (bijv. tekening) en <ENT> geven 

F1 met deze toets plaatst u een punt op het scherm, indien u daarna de "J” intoetst. De "N" laat de punt weer verdwijnen. 
Linksboven in de echoregel ziet u de coördinaten van het punt. Dit punt markeert het begin van de met "ProCAD" op te 
roepen figuren 

F2 na het indrukken van deze toets springt de cursor opzij en door op "J" of "N” te drukken, tekent u wel of geen lijn op het 
scherm tussen de met F1 en F2 aangegeven punten 

F3 dezelfde werkwijze als F2, alleen tekent u nu tussen de twee punten een cirkel. De punten mogen kris-kras op het scherm 
gezet worden; het programma rekent de cirkel er door voor u uit. Het bedienen van "D" geeft u een halve onderste of 
bovenste cirkel, afhankelijk van ingave van volgorde 

F4 tussen het punt van F1 en F4 tekent u een bekende computer rechthoek 

F5 nu wordt het anders. Aan de punten op het scherm geplaatst met F1 en F5 wordt een vierkant getekend, loodrecht op 
de lijn tussen deze twee punten. 

F6 brengt "ProCAD" in de tekst mode, dus tekst op het scherm wordt nu mogelijk. Bovenin verschijnt het woord PRINT en 

u kunt het woord of de zin intoetsen die u wenst. De backspace toets wist het teken links van de cursor, zodat u ook kunt 
corrigeren. Met <ENT> sprint u uit de PRINT mode. Ook tekst geheel of gedeeltelijk in een gekozen kleur 

F7 deze toets bepaalt samen met F1 welk blok u kunt gaan kopiëren op het scherm, naar andere schermpositie dus 

F8 bepaalt de plaats waarnaar u het onder F7 bepaalde blok wilt verplaatsen. Het verschijnt rechtsonder aan het gekozen 

punt 

F9 voorzichtig met deze toets: de printer moet aanstaan, anders bent u de haas. F9 maakt op een matrixprinter 

(en met "Cameleon" ook op een daisy wheel printer) een screendump op papier. DE PRINTER MOET WEL AANSTAAN!! 

F1 0 stelt u in staat uw tekening op schijf weg te schrijven en te bewaren. Met "C" kan de tekening weer op de cursorpositie 

binnengehaald worden. Heeft u het blok dat naar de schijf moet, bepaald (F1 en F1 0 en met ’’J" bevestigd), dan gaat 
"PRINT" aan en u kunt de filenaam intikken; na <ENT> draait de drive 
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1000 REM — initialiseren en schermopmaak — 

1010 COLOR 15,4,5: SCREEN 7,1: CLEAR 400: JJ=lE-06: RZ=0: DIM CG(200) 

1020 2Ü, ?I 0P G0SUB 3490 * ST0P 0N » PI»4*ATN(l)i TT«15: DIM U7.(20)l DIM TA<200) 
1030 C0L0R=(4,2,2,7) j C0L0R=(5,1,1,3): COLOR=*(14,5,5,3) 


1050 

1060 

1065 

1070 

1075 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 


’ m****m*mmmmu*m**************************** 

= computerondersteund ontwerpen en tekenen = 
"ProCAD" v 4.55 

— 2-di mensi anaal ONTWERP- !< TEKENPROGRAMMA — 

- met rekenoptie - 
door 

Wouter Alexander - Jan/feb 1989 
MSX-2 en MSX-2+ 

copyright (c) by C.U.C. 1989/1990 
handleiding in "C.U.C. journaal" 25/26 (Omnibus 'B8/89) 

’tmtsmmmtmtmmummmmmmsmmm* 


LINE(0,0)-(512,200).14,B 
T=15: W-4: WS=4: 
A$= , 'potlood/g": B$="gum/p" 
LL=50: SS=0: 


OPEN "GRP:" FOR OUTPUT AS #1 
LINE(170,202)-(320,211), 1, B 
1240 LINE(171,203) — (319,210) ,8,BF: COLOR 3.0,8 
1250 LINE(169,201 >- (320,212) ,1,8 

PRESET<175,203)» PRINT #1, "P r o C A D v 4.55' 

IT$= "W-v-s-t-H-u-r—c-k-B-N": 

PSET(338,203): COLOR 1,4: PRINT #1, IT$ 

PSET< 10,203): COLOR 15,4: PRINT «1, A$ 

LINE(155,48)-(297,89 ),8,B : OO$="00": 

LINE(156,49)-(296,88 >,2,BF| COLOR 1,2 
PSET(160,50),4: PRINT #1, "klok zetten ? j/n" 
J*=INPUT$(1) : IF J$="j" THEN 1360 ELSE 1430 
PSET(200,60),4: PRINT #1, "UUR"; 

JJ$=INPUT$(2) ; HR=VAL <JJ$): PRINT 41, HR 
PSET(200,70),4: PRINT 41, "MIN"; 

JK$=1NPUT$(2) : MT=VAL(JK$): PRINT #1, MT 
TS$=JJ$+":"+JK$+":"+oo$: SET TIME TS$ 

PSET(200,80),4: PRINT #1, "Ok j/n" 

JL$= INPUT$(1>: IF JL*= "n" THEN 1320 
LINE(150,45)-(300,100),4,BF 


’tekenveld/echoregel 
’potlood/gummen 

'sprite traag/snel 
'CAPS/LOCK uit! 11 ! 1 


'bedienmgstoetsen 


'Klok instellen 


FOR A= 1 
READ 01. 

READ Q2 
NEXT A 
DATA 56, 0,68,14,130, 


TO 8: 

Sl$=3l$+CHR$(Q1>: SPRITE*(0)=S1* 
S2$=S2*+CHR$(G2): SPRITE$<1)=S2$ 


'sprite pos. vastleggen 
’sprites definiëren 


1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 : 

1450 ON INTERVAL = 75 GOSUB 1980: INTERVAL ON: 

1460 : 

1470 
1480 
1490 
1500 
1510 
1520 : 

1530 X=252: Y=106: 

1540 : 

1550 REM cursorbesturing opbouwen 
1560 DD=STICK(0) OR STICK(1): 

1570 REM tekenen/gummen met spatiebalk 
1580 IF STRIG(0) OR STRIG(l) THEN PSET(X+6,Y+8),T 
1590 PUT SPRITE 0,(X/2-4,Y),15 

1600 ON DD GOTO 1690,1700,1710,1720,1730,1740,1750 1760 
1610 : 

1620 REM punt - lijn - rond - blok - ruit - 

16^5 tekst - bl.or. - bl.co - printer - drive 

0 eno E L e ? S ïn 2 l W ' 2220 ' 2560 ’ 2460 > 2720 ’ 2890 ’ Z17& > 3260,4230,3640 
640 FOR KE=1 TO 10: KEY(KE) DN: NEXT KE: ’F-toet.en aan 

1650 : 

1660 REM wwissen ppotiood, werven , ggumen, ttraag ,ssnel ,ccopy, 
1665 hm UÜUr 5 rrekenen, kkleur , BBlokken, NNeutraal 

□N INSTR ( 11 WWpp wggttssHHuurrccKkBBNN" , INKEY$)\2 GOSUB 

1950,1900,2070,1840,2180,2180,2430,3370,4400,3780,3910,4040 4]20 

GQTD 1560 

Y-Y-I: 


146,10,130,14,68, 0,56,0, 0,0 

'begin positie sprite 

'cursor besturing 


1670 

1675 

1680 

1690 

1700 

1710 

1.720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 


Y=Y+1: 
Y=Y+1: 


1820 END: 
1830 I 


GOTO 1770 
Y=Y-1: GOTO 1770 
GOTO 1770 
GOTO 1770 
GOTO 1770 
Y=Y+1: GOTO 1770 
: GOTO 1770 
Y=Y-1: GOTO 1770 
FOR TI=0 TO SS: NEXT TI 

IF X< 1 THEN X= 1 ELSE IF X>502 THEN X=502: 
IF Y< 10 THEN Y=10 ELSE IF YM91 THEN Y=191 

GOTO 1560 


X=X+1 

X=X+1 

X=X+1 

x=x-i 

X=X-1 

X=X-1 


'sprite op scherm houden 


'einde hoofdlus 


1840 REM verwissel tekenen/gummen met p/g 
iacrA T=4: W=15: GS*=B$ 

LINE( 6,202)-<115,211),WS,BF 
PSET(10,203): C0L0R15,4: PRINT #1, B* 


1850 

1860 

1870 

1880 

1890 

1900 


’gg 


RETURN 


T=15: W=4: GS*=A$: 


1910 LINE( 6,202) — (115,211),WS,BF 


1920 
1930 
1940 
1950 
1960 
1970 

I REM sprite positie vastleggen 
1990 IF (X+7)=HT AND (Y+8)=VT THEN 2020: 

2000 LINE(422,3)-(504,13), 1,B 


PSET(10,203): COLOR 15,4: PRINT #1,A$ 
RETURN 

LINE(2,1)-(510,199),WS,BF: 

RETURN 


'schoon scherm met W 


'als sprite stilstaat 


2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 


PRESET(424,5): COLOR 2,4: PRINT #1, 

HT=X+7: VT=Y+8 

LINE(9,3)-(92,13),15,Bs 

RETURN 


X+7;Y+8 


2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 

2690 

2700 

2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 

2800 

2810 

2820 

2830 

2840 

2850 

2860 

2870 

2800 

2890 

2895 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 

3010 

3020 

3030 

3040 

3050 


REM vlakje inkleuren 
M=X+7: N=Y+8 

PAINT(M,N),T,TT: INTERVAL OFF 
PSET<105,5): COLOR 15: PRINT #1,"P": 

FOR TI=1 TO 50: NEXT TI 

PSET(105,5): COLOR 1: PRINT #1,"P" 

FOR TI=1 TO 50: NEXT TI 

EB$=INKEY$: IF EB*="p" THEN 2140 ELSE 2090 
INTERVAL ON 

LINE(105,3)-(113,11),4,BF: GOSUB 1900 
RÊ T L/RN 

i 

REM sprite vertragen/versnellen 
SWAP LL,SS 
RETURN 

REM lijn trekken/wissen met F2 
MM= X+7: NN= Y+8 
PSET(MM,NN),T: 

PUT SPRITE 0, (X/2+20,Y),15: 

I*=INKEY$: IF I$="j" THEN 2280 

IF I*="n" THEN 2440 ELSE 2260 
LINE < X X,YY)-(MM,NN),T: GOTO 2290 
TT=T: RETURN 

REM beginpunt figuur vastleggen met F1 
XX= X+7: YY= Y+8: PP=XX: QQ=YY 
PRESET(10,5): COLOR 15,4: PRINT#1, XX:YY 
PSET(XX,YY),T 

PUT SPRITE 0,(X/2+20,Y),15 
E*=INKEY$: IF E$="j" THEN 2400 

IF E$="n" THEN 2380 ELSE 2360 
PSET(XX,YY),4 
LINE(10,4)-(91,12>,4,BF 
TT=T: RETURN 


'vakje pos. Ie punt 


'druk op p 


'met t/s 


'eindpunt lijn 
'sprite even opzij 


’Fl - le punt 


REM scherm herstel 1 en/opstarten 

CLOSE #1: RETURN 1010 

’H 

REM tekenen rechthoek met F4 

MH=X+7: MV=Y+8 

PSET(MH,MV),T 

PUT SPRITE 0,(X/2+20,Y),15 

I)*=INKEY*: IF D$="j" THEN 2520 

' F4 


IF D*="n" THEN 2510 ELSE 2490 
PRESET(XX,YY): PRESET(MH,MV): GOTO 2530 
LINE(XX,YY)-(MH,MV),T,B 
TT=T: RETURN 

REM berekenen en tekenen cirkel 
CH=X+7: CV=Y+8: PSET(CH,CV),T: A(2)=2*PI: 

IF CH>XX THEN FF=2 ELSE FF=-2 
IF CVX'YY THEN FH=2 ELSE FH=-2 
CX=XX+(ABS(XX-CH)/FF): CY=YY-(ABS(YY-CV)/FH) : 
ST-(SQR((ABS(XX-CH)*.65) A 2+(ABS(YY-CV) A 2)))/2* 
PUT SPRITE 0,(X/2+20,Y),15 
J$=INKEY$: IF J$="j" THEN GOTO 2650 

IF J$="d" THEN GOSUB 3510: GOTO 2650: 
IF Jt="n" THEN RETURN ELSE 2620 
PSET(CX,CY), 15: PSET(XX,YY) ,4: PSEKCH.CV), 4 
PSET(CH,CV), 4: PSET(CX,CY),4: FF=0 

CIRCLE(CX,CY>,Sm.5,T,A<l),A<2),.65 

A(l) =0: A(2)=Ad) 

TT=T: RETURN 


2e punt cirkel F3 


'middelpunt 

'straal 


'deel cirkel 


’F5 


REM 2e punt vierkant 
PX=X+7: PY=Y+8 
PSET <PX,PY),T 

PUT SPRITE 0,(X/2+20,Y),15 
J$=INKEY$: IF J$="j" THEN 2770 

IF J$="n" THEN 2860 ELSE 2750 
IF <XX>PX) AND (YY<PY) THEN SWAF XX,PX: SWAP YY.PY 
IF <XX>PX) AND (YY>PY) THEN SWAP XX,PX: SWAP YY,PY 
IF <XX>PX) THEN SWAP XX,PX 
CF=.75: IF PY>YY THEN CF=-CF 

X3=PX+2.05*(ABS <YY-PY>)* CF: X4=XX+2.05*(ABS(YY-PY))* CF 

: Y4=YY+ABS(XX-PX)/1.6 

: PRESET(PX,PY) 

: LINE(PX,PY)-(X3,Y3),T 

: LINE(X4,Y4)-(XX,YY),T 


Y3=PY+ABS(XX-PX)/1,6 
PRESET(XX.YY) 

LINE(XX,YY)-(PX,PY) J T 

LINE(X3,Y3)-(X4,Y4),T 
CF= .65 
TT=T: RETURN 


REM tekst np scherm schrijven 
INTERVAL OFF 

LINE(226,3)-(304,13),2,BF: PRESET(232,5) 
COLOR 15,2: PRINT #l,"T E K S T": 

PUT SPRITE 0,(0,-30): INTERVAL OFF 
UU=X: I J*="": PUT SPRITE 1,(UU/2-7,Y) 

I*= INPUT*( 1 ): IF I$=CHR$( 13) THEN 3040 
HK=P01NT(UU,Y+5) 

PRESET(UU,Y+4): COLOR T,HK: PRINT #1,1$ 
IF UU>495 THEN UU=495 
IF I$=CHR$(8) THEN 3070: 

FOR UU=UU TO UU+5 
PUT SPRITE 1,(UU/2-7,Y),15 
FOR TI= 1 TO 5: NEXT TI 
NEXT UU 

GOTO 2940 

LI NE(226,3)-(304,13), 4,BF: 

LINE(226,3)-(304,13),2,B 


' F6 

'"TEKST" aan 


'terug raar tekenen 

'achtergrondkleur 
'tekst printen 

'back space 


"TEKST" uit 
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3060 

PUT SPRITE 1,(0,-20): GOTO 3140 


3070 

FDR UU=UU TO UU-5 STEP -1 


3080 

PUT SPRITE 1,(UU/2-7,Y),15 


3090 

FOR TI=1 TO 3: NEXT TI 


3100 

NEXT UU 


3110 

IF IJ*>"" THEN IJS=LEFT$(IJS, LEN(IJS)-l) 

’string aanpassen 

3120 

LINE(UU,Y+2)-(UU+6,Y+l1),HK,BF: GOTO 2940 

'vorige letter wissen 

3130 

INTERVAL ON 


3140 

RETURN 


3150 



3160 

REM 2e punt grafisch blok 

’F7 

3170 

GH= X+6; GV= Y+B 


3180 

PSET(GH,GV),T 


3190 

IF GH<XX THEN SWAP GH,XX: SWAP GV,YY 


3200 

PUT SPRITE 0,<X/2+20,Y-8),15 


3210 

I$=INKEY$: IF I$="j” THEN 3230 


3220 

IF IS="n" THEN 3240 ELSE 3210 


3230 

PRESET(XX,YY): PRESET (GH,GV) 


3240 

RETURN 


3250 



3260 REM plaatsen grafisch blok 

•’ F8 

3270 

IH= X+6: IV= Y+8 


32B0 

PSET(IH,IV),T 


3290 

PUT SPRITE 0,(X/2+20,Y),15 


3300 

IS=INKEYS: IF I$="j" THEN 3320 


3310 

IF IS="n" THEN 3340 ELSE 3300 


3320 

PRESET(XX,YY): PRESET(GH,GV): PRESET(IH,IV) 


3330 

COPY (XX,YY)-(GH,GV) TO (IH,IV) 

'kopieer deel scherm 

3340 

PRESET(IH,IV) 


3350 

RETURN 


3360 



3370 

REM tijd op scherm tonen 

’LI 

3380 

INTERVAL OFF 


3390 

LINE(333,3)-(380,13), 14,BF 


3400 

LINE(333,3)-(380,13), 8,B 


3410 

PRESET(339,5): COLOR 1,14 


3420 

GET TIME ZTS: PRINT #1, LEFT$(ZT$,5) 


3430 

ACS=INKEYS 


3440 

IF ACSO-8" THEN 3410 ELSE 3450 

'einde tijdweergave 


' tTWrf333,31 - (380.13), 4, BF 


3460 

CQLÜR 15,4,5: INTERVAL ON 


3470 

RETURN 


34B0 

: 


3490 

COLOR 15,4,5: KEY ON: GOTO 1820 

'naar END 

3500 



3510 

REM subroutine tekenen halve cirkel 


3520 

IF (XX-CH)=0 THEN 3530 ELSE 3550 


3530 

IF YY<CV THEN A(l)= .5*PI: A(2)=1.5*PI: GOTO 3 

620 

3540 

IF YY>CV THEN A(1)=1.5*PI: A(2)= .5*PI: GOTO 3620 

3550 

A(1)=(CY-YY)/(XX-CX): 

’begin-/eindpunt 

3560 

IF A(1)<0 THEN 3590 


3570 

IF XXCCX THEN A(1)=A(1>+PI 


3580 

GOTO 3610 


3590 

IF XX<CX THEN A(1)=PI+A(1): GOTO 3610 


3600 

A(1)= 2*PI+A(1) 


3610 

IF AdXPI THEN A<2) =A< 1) +PI ELSE A(2)=A(1)-PI 


3620 

RETURN 


3630 



3640 

REM deel scherm op schijf bewaren 

'met F10 

3650 

CC=X+7: DD=Y+8: PUT SPRITE 0,(0,-20) 


3660 

LINE(CC- 9,DD-7)-(CC+88,DD+4), 1,B 


3670 

LINE(CC- S,DD-6)-(CC+87,DD+3),11,BF 


3680 

PSET(CC,DD),4 : PSET(XX,YY),4 


3690 

PSET(CC,DD-5),11: COLOR 6,11: PRINT #1."diskette 7" 

3700 

I*=INKEY*: IF I*="j" THEN 3720 


3710 

IF I*="n" THEN 3760 ELSE 3700 


3720 

LINE(CC-8,DD-6)-(CC+87,DD+3),4,BF: PSET(CC,DD) 

,4 

3730 

GOSUB 2890: 

'naar PRINT routine 

3740 

LINE(CC-9,DD-7)-(CC+88,DD+4),4 ,BF 


3750 

COPY (XX,YY)-(CC,DD) TO IJ* 


3760 

RETURN 


3770 



37B0 

REM tekening van schijf halen 

’met c 

3790 

PUT SPRITE 0,(0,-30) 


3800 

CC=X+3: DD=Y+5 


3810 

LINE < CC-10,DD-4)-(CC+73,DD+7),1 ,B 


3820 

LINE(CC- 9,DD-3)-(CC+72,DD+6),11,BF 


3830 

PSET(CC-7,DD-1),11: COLOR 6,11: PRINT #1,"diskette ?■ 

3840 

A*=INPUT*<1>: IF A$<>"j" THEN 3840 


3850 

LI NE(CC- 9,DD-3)-(CC+72,DD+6),4,BF 


3860 

GOSUB 2890 


3870 

LINE(CC-10,DD-4)-(CC+73,DD+7),4,BF 


3880 

COPY IJ* TC (CC,DD) 


3890 

RETURN 


3900 

: 


3910 

REM kleur kieren 


3920 

AK=0 

'kleur vanaf zwart 

3930 

AK=AK+1: IF AK=14 THEN AK=15 

'kleur verhogen;niet grijs 

3940 

LINE(10,202)-<115,210), 4,BF 


3950 

IF AK>15 THEN AK=1: T=AK: 

'tekenkleur 

3960 

LINE(10,202)-(99,209),AK,BF 


3970 

L*=INPUT*(1): IF L*="j'' THEN T=AK: GOTO 4000: 

'kleur vast leggen 

3980 

IF L*="n" THEN 3990 ELSE 3970 


3990 

GOTO 3930 


4000 

LINE(109,202)-(115,210),4,BF 


4010 

PRESET (110, 203): PRINT #1,"*'*; 

'kleur bevestiging 

4020 

RETURN 


4030 



4040 REM punt-raster opöouwen 

'B 

4050 

FOR ST=32 TO 182 STEP 15 


4060 

FOR SR=25 TO 487 STEP 20 


4070 

PSET(SR,ST),14 


4080 

NEXT SR: NEXT ST 


4090 

LINE(5,17)-(507,196),14,B 


4100 

RETURN 



4110 

4120 

4130 

4140 

4150 

4160 

4170 

4180 

4190 

4200 

4210 

4220 

4230 

4240 

4250 

4260 

4270 

4280 

4290 

4300 

4310 

4320 

4330 

4340 

4350 

4360 

4370 

4380 

4390 

4400 

4410 

4420 

4430 

4440 

4450 

4460 

4470 

4480 

4490 

4500 

4510 

4520 

4530 

4540 

4550 

4560 

4570 

4580 

4590 

4600 


REM punt-raster verwijderen ’ N 

ST=30 

LINE(5,17)-(507,196),4,B 
FOR ST=32 TO 182 STEP 15 
FDR SR=25 TO 487 STEP 20 
IF POINT(SR,ST)=14 THEN PSET(SR,ST),4 
NEXT SR: NEXT ST 
RETURN 
: 

LINE(CC,DD>-(CC+60,DD+10), 15,B 

REM screendump routine 'F 

DEFINT A-Z: LPRINT CHR$<27) CHR$(65) CHR*<8) 

X#=0: DEFUSR=VARPtR(X#) 

FOR 1=0 TO 5: READ T: POKE VARPTR(X#)+I,T: NEXT I 
DATA 35, 35, 126, 195, 165, 0 
FOR HO=0 TO 504 STEP 8 
LPRINT CHR*<27> CHR$(76) CHR*(124> CHR*<2); 

FOR VE=211 TO 0 STEP -1: D=0 
FOR H=HO TO HO+7 

D=D+D: IF POINT<H,VE)<>4 THEN D=D+1 

NEXT H: D=USR(D): D=USR(D): D=USR(D) 

NEXT VE: LPRINT 
NEXT HO 

LPRINT CHR*(27) CHR$(64) 

DEFDBL A-Z 
RETURN 

REM reken routine 
RESTORE 4570 

FOR 1=0 TO 15: READ AZ$,EZ* 

U7. (I) =VAL ("&H " +LEFT* < B Z *,2 > +A Z $ > 

NEXT I 

HX=X: HY=Y; X=4: Y=200 
COPY (170,202)-(320,211) TO C6 
LINE<0, 201)-(320,211),2,BF 
GOSUB 2890 
DEFUSR=VARPTR (U7. (0)) 

PSET(UU,204),2: COLOR 6,2: PRINT 41," ="; USR(IJ*> 

X=HX: Y=HY 

AZ*=INPUT*(1): IF AZ*="ia" THEN 4530 ELSE 4520 'uitkomst wissen 
LINE(0,201)-<320,211),4, BF 

COPY CG TO (170,202): PSET(10,203),4: COLOR 15,4: PRINT 41,AS 
RETURN 

: 

DATA 23,23,5E, 23,56, eb, 4e, 06,00,23,7e, 23,66, 6f 
DATA 11,5e,f5,ed,b0,af, 12,21,5e, f5, cd, b2,42,23 
DATA cd,64,4c,c9 


'berekening invoeren 
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Dit en afgelopen jaar hebben we ons bezig gehouden met het oude MSX-DOS, nu MSX-DOS 2.20 
uit is, gaan we verder met de bespreking van de systeemgegevens van dit nieuwe MSX Operatinq 
Systeem. 

MSX-DOS 2.20 ontsluierd (1) 

Over het nieuwe MSX-DOS 2.20 is al heel wat te doen geweest. Eerst 
was er een voorversie die duidelijk niet compatible genoeg was, en 
nu is er dan het nieuwe MSX-DOS 2.20. Dit is wel geheel compatible 
met de oude MSX-DOS files en programmatuur. Met dit MSX-DOS 
is het programmeren, en dan met name het geheugenbeheer, een 
stuk eenvoudiger geworden. Vandaar ook dat we het zinvol vinden 
om de systeem- en programmeergegevens van dit nieuwe MSX-DOS 
in een serie te bespreken. 



In deze serie zullen we tot in de de¬ 
tails de programmeurs- interface spe¬ 
cificaties en de MSX-DOS calls be¬ 
spreken. Er zijn twee verschillende 
manieren om een MSX-DOS functie- 
call te gebruiken. Transiente pro¬ 
gramma’s die onder MSX-DOS 2.20 
draaien, roepen de MSX-DOS func¬ 
ties aan met een CALL 0005H in¬ 
structie. Disk Basic en andere MSX 
programma’s die onder Disk Basic 
draaien (deze staan meestal op 
Rom), gebruiken de CALL 0F37DH 
instructie. 


Beperkingen 

Bij het aanroepen van de functies 
vanuit Disk Basic zijn er een aantal 
beperkingen; deze hebben dan 
meestal betrekking op foutafhandelin¬ 
gen en onderbreekroutines. Ook kun¬ 
nen er dan geen parameters doorge¬ 
geven worden in pagina 1, behalve 
als deze zich in de DOS-kernel bevin¬ 
den. Dit komt omdat deze kernei ge¬ 
plaatst wordt in pagina 1 waneer een 
dergelijke call wordt gebruikt. 


Lijst van functiecalls 

Zoals bij velen wel bekend is, is zowel 
het oude als het nieuwe MSX-DOS 


MSX-DOS 2.20 Functie tabel 


CPM 

MSX1 


00H 

Programma beëindiging 

CPM 

MSX1 

★ 

01H 

Console input 

CPM 

MSX1 

* 

02H 

Console output 

CPM 

MSX1 

* 

03H 

Externe input 

CPM 

MSX1 

* 

04H 

Externe output 

CPM 

MSX1 

* 

05H 

Printer output 

CPM 

MSX1 

* 

06H 

Directe console i/o 


MSX1 

* 

07H 

Directe console input 


MSX1 

* 

08H 

Console input zonder echo 

CPM 

MSX1 

★ 

09H 

String output 

CPM 

MSX1 

* 

0AH 

Gebufferde lijn input 

CPM 

MSX1 

* 

0BH 

Console status 

CPM 

MSX1 

* 

OCH 

Geeft het versie nummer 

CPM 

MSX1 


0DH 

Disk reset 

CPM 

MSX1 


0EH 

Selecteert disk 

CPM 

MSX1 


0FH 

Open file (fcb) 

CPM 

MSX1 


10H 

Sluit file (fcb) 

CPM 

MSX1 


11H 

Zoeken naar eerste entry (fcb) 

CPM 

MSX1 


12H 

Zoeken naar volgende entry (fcb) 

CPM 

MSX1 


13H 

Verwijder file (fcb) 

CPM 

MSX1 


14H 

Sequentieel lezen (fcb) 

CPM 

MSX1 


15H 

Sequentieel schrijven (fcb) 

CPM 

MSX1 


16H 

File creatie (fcb) 

CPM 

MSX1 


17H 

Hernoem file (fcb) 

CPM 

MSX1 

* 

18H 

Haal login vector 

CPM 

MSX1 

* 

19H 

Haal huidige drive 

CPM 

MSX1 


1 AH 

Stelt disk transfer adres in 


MSX1 


1 BH 

Haal allocatie informatie 




1CH 

t/m 20H Geen functie 

CPM 

MSX1 


21H 

Random lees actie (FCB) 

CPM 

MSX1 


22H 

Random schrijf actie (FCB) 

CPM 

MSX1 


23H 

Haal file grootte (FCB) 

CPM 

MSX1 


24H 

Stel random record in (FCB) 




25H 

Geen functie 


MSX1 


26H 

Random blok schrijf actie (FCB) 


MSX1 


27H 

Random blok lees actie (FCB) 

CPM 

MSX1 


28H 

Random schrijf actie met 





zero-fill (FCB) 




29H 

Geen functie 
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MSX1 

* 

2AH 

Haal datum 


MSX1 

★ 

2BH 

Stel datum in 


MSX1 

* 

2CH 

Haal tijd 


MSX1 

★ 

2DH 

Stel tijd in 


MSX1 

★ 

2EH 

Set of reset verify vlag 


MSX1 

★ 

2FH 

Absolute sector lees actie 


MSX1 

★ 

30H 

Absolute sector schrijf actie 

Nieuw 


* 

31H 

Haal disk parameters 




32H t/m 3FH 

Geen functie 

Nieuw 



40H 

Vind eerste entry 

Nieuw 



41H 

Vind volgende entry 

Nieuw 



42H 

Vind nieuwe entry 

Nieuw 



43H 

Open file handle 

Nieuw 



44H 

Creëer file handle 

Nieuw 



45H 

Sluit file handle 

Nieuw 



46H 

Stel file handle zeker 

Nieuw 



47H 

Copieer file handle 

Nieuw 



48H 

Lees vanuit de file handle 

Nieuw 



49H 

Schrijf naar de file handle 

Nieuw 



4AH 

Verplaats file handle pointer 

Nieuw 



4BH 

l/O Controle voor randapparatuur 

Nieuw 



4CH 

Test de file handle 

Nieuw 



4DH 

Verwijdert file of subdirectory 

Nieuw 



4EH 

Hernoemt file of subdirectory 

Nieuw 



4FH 

Verplaatst file of subdirectory 

Nieuw 



50H 

Haalt of stelt file attributen in 

Nieuw 



51H 

Haalt of stelt file datum in 

Nieuw 



52H 

Verwijdert file handle 

Nieuw 



53H 

Hernoemt file handle 

Nieuw 



54H 

Verplaatst file handle 

Nieuw 



55H 

Haalt of stelt file handle attributen in 

Nieuw 



56H 

Haalt of stelt file handle datum in 

Nieuw 


★ 

57H 

Haait disk transfer adres 

Nieuw 


* 

58H 

Haalt verify vlag instelling op 

Nieuw 



59H 

Haalt huidige directory 

Nieuw 



5AH 

Verandert huidige directory 

Nieuw 



5BH 

Parse pathname 

Nieuw 



5CH 

Parse filename 

Nieuw 


* 

5DH 

Controleert karakter 

Nieuw 



5EH 

Haalt hele path string 

Nieuw 



5FH 

Flush disk buffers 

Nieuw 



60H 

Fork a child process 

Nieuw 



61H 

Rejoin parent process 

Nieuw 



62H 

Programma onderbreking met 
foutmelding 

Nieuw 



63 H 

Definieert abort exit routine 

Nieuw 



64 H 

Definieert disk fout handler routine 

Nieuw 


* 

65H 

Haalt vorige fout code 

Nieuw 


* 

66H 

Legt fout code uit 

Nieuw 



67H 

Formateert een disk 

Nieuw 



68H 

Creëert of vernietigt ram disk 

Nieuw 



69H 

Alloceert sector buffer 

Nieuw 


* 

6AH 

Logische drive toewijzing 

Nieuw 


* 

6BH 

Haalt environment item 

Nieuw 


★ 

6CH 

Stelt environment item in 

Nieuw 


* 

6DH 

Zoekt environment item op 

Nieuw 


★ 

6EH 

Haalt of stelt disk controle status in 

Nieuw 


* 

6FH 

Haalt het MSX-Dos versie nummer 

Nieuw 


* 

70H 

Haalt of stelt redirection status in 


compatible met CPM. Daarom wordt 
in de tabel met de functie calls aange¬ 
geven als deze call compatible is met 
CPM. 

Staat er MSX1 bij, dan kunnen deze 
calls ook onder MSX-DOS 1 draaien. 

Nieuw betekent dat deze calls wel in 
MSX-DOS 2.20 gebruikt kunnen wor¬ 
den, maar niet door het oude DOS. 
Staat er een asterisk (*), dan kan 
deze functie veilig aangeroepen wor¬ 
den door een userdisk errorroutine, 
zie hiervoor functie 64H en 70H. 

Als we deze lijst goed bestuderen dan 
valt meteen al op dat het nieuwe 
MSX-DOS eigenlijk bestaat uit een 
gedeelte dat bedoeld is om compati¬ 
ble met CPM en MSX-DOS 1 te blij¬ 
ven. Dat zijn de functies tot en met 
30H. 

De functies vanaf 31H zijn allemaal 
nieuwe MSX-DOS functies. Deze 
functies hebben, als we ze vergelijken 
met het eerste blok, voor een groot 
gedeelte dezelfde taken. Dit komt om¬ 
dat MSX-DOS 2.20 een echt nieuw 
MSX-DOS is en geen upgrade: alle 
onder het oude MSX-DOS beschikba¬ 
re routines zijn herschreven. 

Dit verklaart waarschijnlijk ook waar¬ 
om veel software veel sneller uit de 
voeten kan met het nieuwe MSX- 
DOS. In de volgende afleveringen 
zullen we telkens een aantal van deze 
functies bespreken in combinatie met 
gedeelten uit de Programmers Inter¬ 
face Specifications. 

A. van Norden 
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EWix a o jr fiïnff 


M S X 


MSXl: 


MSX 2: 


Titel.J .Prijs .. . Medium . Titel_ 




c? 

oo 




4 ; 


\ 


\ 




meer ^ 

Prijs ...Medium'; 




I 


Xanadu.-\ 

.;i 09-00 

Mega ROM .. 

•Yaksa . 

.. 99,50 

...2MB ROM 

R Type. 

V129VOO 

•4. 3MB ROM % 

Return to Yelda. 

.. 99,50 

... Mega RÓM 

Vaxol .. 

39,00 

. . Mega ROM /. 

Rastan Saga. 

.. 99,50 

... Mega. RÓM 

Final Zone Wolf . ..4. ; 

.489,50, 

,-.;Mega. ROM..4\.4 

löted Rider . 

.. 99,50 , 

... Mega RÖM 

.JFantesmvSpItfrer .7.9,50 

... Mega ROM V. 

Oragon King. 

.. 99,50 , 

...2 MB RÓM 

Tritom-v>;.. :vïv;^.., 

•;..89,S0.: 

;4 4v44Röm :4 

Dragónbustér; ïïïïvïi 

§9,50,. 

.„...Mega ROM 

Super 4^ydock .iVi*:*: 

V .99,00 

^v ^MèyfiOM v \4 

• Testamërit 4*:: *. 4:‘:•;!*; 

: i tó,.0ö . 

:';iv2 öïsks 

êpace Camp ■; 

..89,50: 

v4ï&4\rom-#v 

y'Super Mirai •*:■. v'. •;■.'. V:■ 

: i09 , öü : 

.:MegaRÖM 

ftartrb;cfvv:;‘S::*; .y _ y . 

l.ö&ó.: 

;;444y4\ROM:y;y: 4y 

:4 Sï$rsh[p Rendezyous 

..:129,00... 

'é\ . disïs' 

.Mi ra i ’ y'. • ïy 4.', % 44 % 

. .99,00 

■ /a Ö ; * * ‘ * 

•; ;Oüï. jïcrri. ;444ï44 

. 129,00 . 

..2MB ROM 

G u ardicv'/Vv..'\‘iy4 


vv^^rom: 

ikari Warriors. 

. 119,00 . 

.. 2MB ROM 

Castle Excellent .. . 

.99,50 

..4.... ROM 

'Cockpit. 

. 129,00 . 

.. Mega ROM 

Battle of Peguss .. 4. 

V .79,50 

..4....ROM 4 

: Ash-Guine 3 . 

. 129,00 . 

..2MB ROM 

Hydlide II.y. 

ï .99,00 

.. Mega ROM 
.. Mega ROM 

Angelas 

. 139,00 
. 139,00 


Tournament Golf ..... 

v .79,50 

: yAncient Y’s Vanished 


Golvellius . \. 

.;.89,50 

.. Mega ROM;:: 

: Alesta . 

. 119,00 . 

..2MB ROM 



.. : ROM - 

; Hydlide lil . 

. 149,00 . 

..4MB ROM 

Sublogic Flightsim. 

479,50-. 

■. . Mega ROM- 

. .. Greatest driver. 

. 129,00 . 

..2 ...disks 

Panasonic Pana Cart;> 

.i 79,50 

. . Mega ROIWÏ 

. King Kong II . 

. 119,00 . 

.. Mega ROM. 

Rollerball . i 


.. 4 • ■ • • ROM 

Super Tritorn . 

,. 99,00 . 

.. Mega ROM 

EGGerland 1 .y. 

• -75,00 

..4.... ROM 

Super Rambo Special 

. 99,00 . 

..2MB ROM 

Salamander . 

King Valley II . 

: 1-79,50 
. .89,00 

:;-4':::vRojr 4 • 

Skramble Formation .. 
DeeD Forest 

,. 99,50 . 

qq on 

.. Mega ROM 
.. Mega ROM 
.. Mega ROM 

Nemesis III . 


.. i-; .... R0M . 

Bubble Bobble. 

. 99,00 . 

Maze of Gallious. 

y .79,00 

RÖM: •; 

Bastard. 

. 99,00 . 

. . disk 

The Games Collection 



Arkanoid 2 . 

. 99,50 . 

.. Mega ROM 

(33 hits) . 


. .ii? ... cètssj. 

American Soccer . 

. 99,50 . 

.. Mega ROM 



.. ;3 ...disks ; 

Sa-Zi-Ri . 

. 99,00 . 

.. disk 


0.99,00 .4.... QÖa 


Alle prijzen inclusief BTW. en verzèndkosïéü Té bestellen door overmaking 
van het betreffende.bedra^.óp giro 56412f^n,y'. SALASAN Amsterdam o.v.v. 
het gewenste programma/disktypé Rértiboiirszendingen zijn mogelijk, 
hiervoor brengen we echter ƒ 5.00 in rekéafrig. SALASAN postbus 5570 1007 
AN Amsterdam 

Voor inlichtingen, bestellingen gratis.catalogus: 020 - 203219 






















Sinds vorig jaar is de MSX2+ machine uit, maar is tot op heden nog niet verkrijgbaar in een Europese 
versie. Over wat nu wel MSX2+ is en wat niet, wordt in de diverse bladen druk gespeculeerd. In 
onderstaand artikel zetten we de feiten op een rijtje. 


MSX2+ 

Feiten en fictie 


Het vervelende van geruchten is, dat bedrijven zich aan die geruch¬ 
ten aanpassen. Zo zou er waarschijnlijk al begin dit jaar een PAN 
Amusement cartridge met het MSX2+ geluid in een Europese versie 
verkrijgbaar zijn geweest als niet steeds geruchten de ronde hadden 
gedaan, dat er al grote hoeveelheden van deze cartridge tegen bela¬ 
chelijk lage prijzen op de Europese markt zouden zijn. Want wie 
gaat per slot van rekening iets importeren dat er al is? 


Onlangs was er weer een bedrijfje dat 
beweerde deze cartridge op voorraad 
te hebben en nu maar hoopt dat zij ze 
via de firma Home Soft kan betrek¬ 
ken. Ook werd in een MSX blad be¬ 
weerd dat in september de MSX2+ 
vollop te krijgen zou zijn in een Euro¬ 
pese versie. Het zal ons benieuwen, 
feit is echter wel dat hierdoor andere 
importeurs weinig trek meer hebben 
in MSX2+. 

Een ander lovenswaardig initiatief 
komt wel langzaam van de grond. 
Een aantal betrokken bedrijven en 
clubs in de Nederlandse MSX wereld 
probeert de koppen (en de portemon¬ 
nees) bij elkaar te steken om een 
soort bedrijfsfonds te stichten, waar¬ 
mee in Japan een voorraad machines 
gekocht zou moeten worden, om die 
vervolgens op de Europese markt af 
te zetten. Op die manier zou iets ge¬ 
daan kunnen worden tegen de desin¬ 
teresse van de Japanners om de Eu¬ 
ropese markt te bewerken. 

MSX2+ geluid 

Het geluid, zoals dat in de Sony en 
andere MSX2+ merken zit, is optio¬ 
neel. Dit houdt in dat het dus niet 
standaard bij de MSX2+ geleverd 
wordt. Het is eigenlijk een ingebouw¬ 
de PAN Amusement cartridge. Nu is 
deze cartridge binnenkort wel ver¬ 
krijgbaar, en wel bij de firma Home 
Soft. De prijs voor deze cartridge zal 
rond de ƒ 169,90 komen te liggen. 
Gelukkig heeft men voor de PAN car¬ 
tridge geen MSX2+ machine nodig. 
Het enige zwakke punt van de cartrid¬ 
ge is het feit dat deze, in tegenstelling 
tot de Philips, geen MIDI interface 
aan boord heeft. 


MSX2+ geheugen 
Met het MSX2+ geheugen staat het 
net zo als met het geheugen voor de 
MSX2. Alleen is het wel zo, dat ma¬ 
chines in Japan slechts 64K bevatten, 
wat geheugencapaciteit betreft liggen 
de Europese MSX gebruikers dus 
duidelijk voor. Kortom, de MSX2+ 
standaard is niet direct gekoppeld 
aan een bepaald formaat geheugen. 


MSX2+ Basics 

Daar de MSX2+ eigenlijk een upgra¬ 
de is van het oude MSX2 systeem, 
zitten er andere Roms in. In deze 
Roms zit dan ook een geheel nieuw 
Basic. Het is de Basic versie 3.0. Disk 
Basic daarentegen is dezelfde als die 
ook voor de MSX2 gebruikt wordt. Wil 
men het nieuwe Disk Basic 2.00 in 
huis halen, dan kan dat alleen met de 
aanschaf van de nieuwe MSX-DOS 
2.20. In de bijgeleverde DOS Kernei 
op Rom bevinden zich het nieuwe 
DOS en het nieuwe Disk Basic. Een 
ander niet te verwaarlozen aspect is 
het feit dat de tot nu toe uitgebrachte 
MSX2+ machines maar met slechts 
één drive kunnen werken. 


MSX2+ Video 

De belangrijkste wijziging in het 
MSX2+ ontwerp zit niet in het nieuwe 
Basic, maar in de nieuwe Videochip. 
Deze chip is voorwerp van al heel wat 
speculaties geweest. Hoe het nu pre¬ 
cies functioneert is bij velen nog erg 
onduidelijk. De fraaie beeldkwaliteit 
ontstaat doordat er een analoge rep¬ 
resentatie gemaakt wordt van een di¬ 
gitaal beeld. In plaats van scherpe 


kleurscheidingen verlopen de beeld¬ 
punten in kleur naar elkaar toe. 

De videochip heet V9958, en heeft de 
volgende karakteristieken. Hij is soft¬ 
ware compatible met de V9938 die in 
de MSX2 zit. Door gebruik te maken 
van het speciale YJK protocol kunnen 



er 19266 kleuren tegelijkertijd afge- 
beeld worden. Bovendien kan er een 
High Resolution multi color scherm 
mee opgebouwd worden, 512 bij 424 
pixels in 16 kleuren. Wait functie naar 
de CPU is ook ingebouwd; dit houdt in 
dat deze wel trager mag gaan wer¬ 
ken, maar dat er problemen bij hogere 
snelheden kunnen ontstaan. Mensen 
die met 6 MHz projecten bezig zijn, 
weten dat dit een van de problemen 
kan zijn die daarbij kunnen optreden. 
De chip kan zowel vertikaal als hori¬ 
zontaal scrollen mogelijk maken. Bo¬ 
vendien kunnen de chips met elkaar 
verbonden worden in een Multi Video 
configuratie. Op deze wijze wordt 
deze chip ook toegepast in helmvizier 
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systemen van moderne gevachtsheli- 
kopters! Misschien voor de pacifisten 
niet zo leuk, maar het geeft wel een 
indicatie over de betrouwbaarheid en 
prestaties van deze chip. Uiteraard 
zijn alle mogelijkheden die in de 
V9938 zitten ook in deze chip aanwe¬ 
zig. (De chip is op dit moment alleen 
te verkrijgen via Sparrow Soft tegen 
een prijs van rond de ƒ 150,-). 
Controllers 

Op de in Japan uitgebrachte MSX2+ 
machines vinden we vaak öf een 
speed controller öf een Ren Sha tur¬ 
bo. Deze extra’s die optioneel voor de 
MSX2+ standaard zijn, zijn afkomstig 
uit de spelletjeshoek. Met de ene kan 
men het spel vertragen, zodat men 


ook makkelijk door de moeilijke levels 
heen komt en de andere dient voor 
het snel kunnen vuren. 

Conclusie 

Als we het bovenstaande bekijken en 
alle feiten op een rijtje zetten, dan is 
het voor de MSX gebruiker niet direct 
interessant om meteen maar weer in 
de buidel te tasten voor de aanschaf 
van een nieuwe MSX2+ machine. Te¬ 
meer ook omdat er, behalve een an¬ 
der Basic en een andere Videochip, 
weinig nieuws onder de zon is. Ster¬ 
ker nog, voor een groot aantal gebrui¬ 
kers zou dit een flinke stap terug be¬ 
tekenen. Want per slot van rekening 


zit er maar 64 K geheugen in, kan er 
maar één drive aangesloten worden, 
en is er geen type dat kan digitalise¬ 
ren of superimposen. 

Daarom kan het voor de MSX gebrui¬ 
ker al snel interessanter zijn om z’n 
machine te laten ombouwen. Vanzelf¬ 
sprekend is de firma ASCII niet blij 
met dit soort initiatieven, zij verkopen 
liever nieuwe MSX2+ computers. In 
het volgende nummer van MSX Info 
hopen we meer informatie over het 
verloop van het ombouwen te kunnen 
geven. 

(Een van de firma’s die de ombouw 
verzorgt is Sparrow Soft, voor onge¬ 
veer f 450,-). 


Voor de MSX verschijnt druppelgewijs nieuwe zakelijke software. Interware maakte ten behoeve van 
de ledenadministratie een goed en goedkoop pakket, Lidad. Het is voor de MSX-2 en één of twee 
diskdrives en een muis moeten aanwezig zijn. 


Lidad 


Ledenadministratie voor de MSX-2 

Lidad bestaat uit één 3,5" SSDD diskette en de administratie die met 
behulp van Lidad opgebouwd wordt, moet op een andere diskette 
gezet worden. Handig voor verschillende soorten administratie; elk 
kan z’n eigen diskette krijgen. De administratie zelf kan nooit meer 
ruimte innemen dan op de (single of doublé sided) diskette kan. 


Het programma start op via het inge¬ 
ven van L. Vanuit het hoofdscherm 
kunnen de functies worden geacti¬ 
veerd. Alle vensterhandelingen verlo¬ 
pen met behulp van de muis. Men 
loopt met de muis over het scherm en 
als men op een woord staat en de 
muis aanklikt, dan verschijnt het menu 
op de bovenste regel. 

Menu 

Het menu bevat de volgende opties: 
Info met gegevens over datum en tijd, 
e.d. 

Administratie, waarmee de eigenlij¬ 
ke administratie wordt opgestart 
Printen, bij het oproepen van deze 
functie verschijnen automatisch alle 
datafiles 

Sorteren, voor het op verschillende 
manieren sorteren van de leden 
Klikker, waarmee het geluid aan- of 
uitgezet kan worden 
Verify, waarmee na het schrijven 
naar een diskette alles wordt terugge¬ 


lezen ter controle. Als men deze optie 
uitzet is de drive natuurlijk een stuk 
sneller. Met de Verify optie moet men 
voorzichtig omgaan, daar sommige 
machines vast kunnen lopen. Op de 
Sony HB-F700D loopt het in ieder ge¬ 
val goed. 


Administratie 

In de administratie functie zijn er ook 
weer verschillende keuzemogelijkhe¬ 
den. Van hieruit worden bestanden 
aangemaakt, geopend en gesloten. 
Voor het invoeren van de stamgege- 
vens van de vereniging of club be¬ 
staat er een apart menu. Van hieruit 
worden later automatisch de juiste ge¬ 
gevens voor girokaarten e.d. gehaald. 
Voor het verwerken van de ledencon¬ 
tributie is het mogelijk tot 26 verschil¬ 
lende tarieven te hanteren. Na het in¬ 
voeren van het ledenbestand kan dan 
aan elk lid een andere tariefgroep ge¬ 
hangen worden. 


Leden 

Elk lid krijgt bij Lidad een eigen record 
en per lid kan uitgebreide informatie 
vastgelegd worden, in de vorm van 
normale gegevens en codes. Om 
maar wat te noemen: Naam, adres, 
geboortedatum, bank/girorekening, 
tariefcode, entreecode, datum lid¬ 
maatschap, betalingen en data, etc. 
Sorteren is mogelijk op vier manieren. 
Standaard zijn de records op volgorde 
van nummer gesorteerd. Dit kan ver¬ 
anderd worden in een volgorde op zelf 
ingegeven nummers ( bijvoorbeeld 
codes), op naam en op plaats. 

Lidad is een mooi vormgegeven en 
efficiënt pakket dat, gezien de prijs 
van ƒ 38,50 de moeite waard is voor 
de leden- en clubadministratie. 

Inl: Interware, 020 - 430788 
Voor degenen die aangesloten zijn op de 
B.I.O.S. databank kan produktinformatie 
verkregen worden en bestellingen ge¬ 
plaatst. Telefoon B.I.O.S. 


62 


MSX Info 3/89 





In deze aflevering van understatement zullen we aandacht besteden aan een statement dat door 
iedereen gebruikt wordt, maar waarmee men toch veel meer kanten uit kan dan men denkt. 

Understatement 

Het statement dat we hieronder zullen bespreken is het PRINT 
statement. Door toevoeging van de L kan de printopdracht uitge¬ 
voerd worden op een printer. Het bekendste voorbeeld hiervan, 
overigens niet gekoppeld aan de printopdracht, is het LLIST state¬ 
ment waarmee men het programma wat op dat moment in het 
geheugen aanwezig is, kan uitprinten. 


Formaat en functies 

Het formaat van de printopdracht is 
afhankelijk van de door ons gewenste 
acties. Normaal gesproken ziet het 
formaat er als volgt uit: eerst het 
PRINT statement eventueel vooraf¬ 
gegaan door een L. Daarna kan men 
optioneel het file nummer opgeven. 
Verder kan ook de USING optie toe¬ 
gevoegd worden. 

De functies van het PRINT comman¬ 
do zijn de volgende: met PRINT stu¬ 
ren we data naar een randapparaat, 
gewoonlijk is dit het beeldscherm, 
maar er kan ook data naar een printer 
of een ander randapparaat gestuurd 
worden. Men kan hier bijvoorbeeld 
denken aan een RS232 interface. De 
data die gebruikt wordt in het PRINT 
statement kan bestaan uit nul of 
meerdere uitdrukkingen van elke 
soort; men mag in de printopdracht 
bijvoorbeeld ook een rekenkundige 
bewerking opnemen. In de uitdruk¬ 
king in het PRINT statement mogen 
zowel constanten als variabelen ge¬ 
bruikt worden, en deze mogen zowel 
alpha-numeriek als numeriek zijn. 

Het uitprinten wordt in een standaard¬ 
formaat volautomatisch gedaan, 
maar kan ook op een door de gebrui¬ 
ker vastgesteld formaat afgedrukt 
worden. Dit kan dan gebeuren met de 
USING optie. 

Als we de printopdracht gebruiken om 
data naar het beeldscherm te sturen, 
dan kan dit alleen maar naar scherm 
nul of 1, sturen we deze naar een 
grafisch scherm dan wordt automat¬ 
isch een tekstscherm ingesteld. Wil 
men met de printopdracht gegevens 
naar een grafisch scherm sturen, dan 
kan dit alleen als met het OPEN sta¬ 
tement het grafisch scherm geopend 
is voor uitvoer naar dit scherm. De 
device naam voor het grafische 
scherm is GRP. 


Formatting 

Op verschillende manieren kan be¬ 
paald worden hoe de uitvoer eruit 


gaat zien. Door middel van schei¬ 
dingstekens tussen de print-items kan 
bepaald worden hoe de uitvoer plaats 
zal vinden. 


Scheidingstekens 

Er zijn twee scheidingstekens, de 
KOMMA en de PUNTKOMMA. Een 
komma houdt in dat de print-items in 
een formaat van 14 tekens afgedrukt 
worden met tussenvoeging van een 
spatie; bovendien wordt een regel 
vanaf de linkerkant begonnen. Hoe 
de uitvoer er precies uit gaat zien, ligt 
niet alleen aan de printopdracht maar 
is ook afhankelijk van de gekozen 
schermbreedte. Dit geldt niet voor de 
printopdracht met de L optie. 

Met de puntkomma is het wat anders. 
Hier staat het formaat van het print- 
item niet vast, zodat er dus geen ko¬ 
lommen op het scherm ontstaan. Als 
het laatste item op een regel een 
komma of een puntkomma is dan blijft 
de pointer, die aangeeft waar het vol¬ 
gende geprint moet worden, staan op 
de laatste positie na eerst een spatie 
opgeschoven te zijn. Als deze niet ge¬ 
bruikt worden, dan worden een line 
feed en een carriage return toege¬ 
voegd. Als er extra komma’s zonder 
print-items verschijnen, dan wordt dat 
aantal printzones overgeslagen. Het 
gebruik van de puntkomma is niet al¬ 
tijd aan te bevelen omdat meestal een 
spatie tussen de print-items gewenst 
is. 


Standaardformaat 

Het standaard formaat voor numerie¬ 
ke items ziet er als volgt uit: Eerst 
wordt er aan het begin een spatie toe¬ 
gevoegd; als het een negatief getal is 
wordt hier het min teken geplaatst. 
Als het getal, en hiermee wordt be¬ 
doeld het aantal significante getalpo- 
sities, groter is dan 14 karakters dan 
gaat men over tot een andere notatie 
van het getal. In dat geval worden alle 
nullen voor en achter het getal afge¬ 


kapt. De komma wordt dan na de eer¬ 
ste getalpositie geplaatst en achter 
het getal wordt de macht van tien ge¬ 
plaatst waar het getal toe verheven 
moet worden om de officiële waarde 
weer terug te krijgen. Dit noemt men 
de wetenschappelijke notatie. String- 
data wordt zo uitgeprint als het is. Het 
is mogelijk om de positie van de print¬ 
opdracht met de L optie te bepalen. 
Het statement dat hiervoor gebruikt 
wordt is het LPOS statement. 


Buffers 

Om data-overdracht mogelijk te ma¬ 
ken tussen de diverse interne en ex¬ 
terne componenten, zijn er stukjes 
geheugen nodig waarin de data ge¬ 
plaatst kan worden in de overdracht- 
fase. Deze stukjes geheugen noemt 
men ook wel buffers. In de printop¬ 
dracht kan men, als men deze combi¬ 
neert met het OPEN statement, een 
buffer toewijzen. Het formaat hiervan 
is hekje, buffernummer. Het toewijzen 
van buffers kan niet plaatsvinden met 
de L optie. 

De Using optie 

Het is ook mogelijk om met de USING 
optie het exacte formaat van de print- 
items te bepalen. Dit is van belang als 
men alle komma’s netjes onder elkaar 
wil hebben. Dit systeem komt ook 
voor in COBOL waarmee men, als 
men gaat printen, een uitvoerbestand 
moet aanmaken met daarin op het 
USING formaat lijkende programma¬ 
regels. Het formaat van de USING 
optie gaat vooraf aan de print-items. 
In de formaat-bepalende uitdrukking 
kunnen verschillende tekens opgeno¬ 
men worden. Deze hebben diverse 
functies. De in de USING optie ge¬ 
bruikte tekens zijn: 

° het uitroepteken; het eerste karak¬ 
ter van het print-item wordt hier af¬ 
gedrukt. 

° de backslash; hiermee wordt de 
eerste en de laatste karakterpositie 
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bepaald. 

° het en teken wordt gebruikt om het 
beginpunt van een stringvariabele 
aan te geven. 

0 het hekje geeft aan dat het om nu¬ 
merieke data gaat. 

Er kunnen tot 24 cijfers gespecifi¬ 
ceerd worden en de decimale punt 
kan ook bepaald of gewoon niet opge¬ 
geven worden. Met het hekje kunnen 
we dus alle getallen netjes onder el¬ 
kaar zetten. Zijn er te weinig cijfers 
om de getalpositie in te vullen dan 
zorgt dit formaat er voor dat spaties 
en nullen toegevoegd worden. Daar¬ 
naast kan ook nog een plusje of een 
minnetje toegevoegd worden. Gebrui¬ 
ken we het plusje aan het begin of het 
eind, dan wordt op die positie het te¬ 
ken van het getal afgedrukt. Bij een 
minnetje aan het eind van een getal 
wordt op die positie een minnetje af¬ 
gedrukt als het getal negatief is. Door 
het toevoegen van twee asterisken 
aan het begin van een numeriek print- 
item, worden de spaties aan het begin 
vervangen door een asterisk. Met het 
dubbele pond teken kan een pond te¬ 
ken geplaatst worden voor het af te 
drukken getal. De asterisk en de pond 
kunnen ook gecombineerd worden, 
alleen is het formaat dan twee asteris¬ 
ken en een pond. 


bericht aan adverteerders 
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Voor meer informatie bel: 020-273198 (fax. 020-253280) 


Sala Communications 
Weesperstraat 103, 1018 VN Amsterdam 


PRINT 1 ;-2;3 
1 -2 3 
Ok 

PRINT USING “ # 1, 2, 3,: PRINT -4 

123-4 

Ok 

FM$ =“ The & in Spain falls at # # . # % relative humidity 
Ok 

PRINT USING FM$; “rain”, 5 

The rain in Spain falls at 5.0% relative humidity. 

Ok 

PRINT ,„3 ’ note b indicates blank space 

bbbbbbbbbbbbbb 

bbbbbbbbbbbbbb3 

Ok 

LPRINT A,“abcde”;ZX;“,”;YM;CHR$ ( 13 ) ; 

( above is trick for printers that space extra line on Line 
Feed ) 


Vier machtverheffingstekens na een 
numeriek print-item zorgen dat het 
getal in wetenschappelijke notatie af¬ 
gedrukt wordt. Als een getal dat afge¬ 
drukt moet worden groter is dan het 
print-item formaat waarin het ge¬ 
plaatst moet worden, dan wordt het 
getal afgerond en een procent teken 
voor het getal afgedrukt als waar¬ 
schuwing. 


Om meer achter elkaar uit te printen 
dan in een printopdracht mogelijk is, 
kan men printopdrachten achter el¬ 
kaar zetten met aan het eind van elke 
opdracht een puntkomma. Het ver¬ 
schil is niet te zien, en deze truc werkt 
ook voor uitvoer naar andere randap- 
paraten. 
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In de vorige aflevering over kunstmatige intelligentie hebben we het wiskundige denken behandeld. 
Deze keer zullen we een begin maken met het bespreken van het laterale denken. 




Kunstmatige Intelligentie (5) 

Lateraal denken is een vorm van denken die in nauw verband staat 
met ons onderbewustzijn. De denkmethode is dan ook niet zo één 
twee drie in een programma te integreren. Wel is het mogelijk om 
op lateraal denken lijkende algoritmes in een programma te stop¬ 
pen. 


Lateraal denken 

Deze vorm van denken is bedoeld om 
fouten, die ontstaan door de structuur 
van het geheugenoppervlak, te com¬ 
penseren. Deze fouten kunnen leiden 
tot onjuist gebruik van informatie. De 
beperkingen die ontstaan door de 
structuur van het geheugenoppervlak 
kunnen ook een goed gebruik van de 
al aanwezige informatie in de weg 
staan 

Bij het natuurlijke denken worden alle 
fouten van het geheugenoppervlak 
netjes overgenomen. Met logisch 
denken kan men de denkfouten, die 
door natuurlijk denken ontstaan, ana¬ 
lyseren en veranderen, maar het logi¬ 
sche denken is niet creatief. 

In Japan worstelen onderzoekers op 
dit moment ook met dit probleem. Ja¬ 
panners zijn nogal sterk in het logi¬ 
sche denken, maar iets nieuws be¬ 
denken is er niet altijd bij. Zo is bij¬ 
voorbeeld het hele MSX systeem 
geen Japans idee. Volgens dezelfde 
onderzoekers staan wij als Nederlan¬ 
ders op de tweede plaats, direkt daar¬ 
na gevolgd door de Westduitsers. 
Amerikanen zijn volgens testen van 
de onderzoekers zo’n 10 procent 
dommer dan wij. In deze test werd het 
verband gelegd tussen de gemiddel¬ 
de intelligentie van een volk en het 
welvaartsniveau. Wat Nederland daar 
nou tussen moet is misschien niet 
zo’n groot raadsel als je zou denken. 
Per slot van rekening is de gemiddel¬ 
de intelligentie in Nederland bij de 
schoolgaande jeugd de afgelopen 20 
jaar met 25 procent toegenomen en 
doét met name de high-tech industrie 
het meer dan goed in Nederland. Zo 
is de economische groei van meer 
dan 5 procent voor een groot deel aan 
deze sector te danken, die als sector 
een groei kende van meer dan 10 
procent, voor een groot deel door de 
toegenomen export. Ook het Wiskun¬ 
dig denken kan zich niet aan de be¬ 
perkingen van het geheugenopper¬ 
vlak ontrekken. 


Probleemdefinitie 

Om een probleem op te kunnen los¬ 
sen is het noodzakelijk om dat pro¬ 
bleem in kaart te brengen; dit noemt 
men het stellen van de probleemdefi¬ 
nitie. In het kort is een probleem het 
verschil tussen wat men wil en wat 
men heeft of kan. 

Problemen kunnen ruwweg in drie ca- 
tegoriën ingedeeld worden. Er zijn 
problemen die gepaard gaan met het 
verwerken of verzamelen van infor¬ 
matie. Dan zijn er ook problemen die 
geen problemen zijn. Dit gebeurt 
wanneer men de dingen accepteert 
zoals ze zijn, wat een gedachte, die 
tot een verandering kan leiden, uit¬ 
sluit. Tenslotte zijn er de problemen 
die opgelost worden door informatie 
die al in een bepaalde structuur is 
opgenomen, anders te ordenen. Het 
eerste type kan men te lijf gaan met 
logisch en wiskundig denken. Voor de 
andere twee zullen we toch moeten 
uitwijken naar het lateraal denken. 

Problemen oplossen 

Vaak wordt een denkpatroon alleen al 
verbeterd door toevoeging van nieu¬ 
we informatie. Dat is dan meestal een 
toevoeging of een geleidelijke veran¬ 
dering. Lateraal denken is er echter 
op uit om gebruik te maken van al 
beschikbare informatie; nieuwe infor¬ 
matie kan, maar hoeft niet belangrijk 
te zijn voor dit proces. Het laterale 
denken tracht de fouten van het ge¬ 
heugenoppervlak te compenseren en 
is in staat om oude denkpatronen te 
veranderen of te vernietigen door het 
aanleggen van nieuwe structuren op 
basis van de al aanwezige informatie. 

Het lateraal denken herplaatst de in¬ 
formatie in een nieuw patroon en 
heeft de mogelijkheid om dit patroon, 
indien dit gewenst is, opnieuw vast te 
zetten. Omdat het geheugenopper¬ 
vlak, het natuurlijke denken, het logi¬ 
sche denken en het wiskundige den¬ 


ken slechts selectieve processen zijn, 
is lateraal denken de enige uitkomst 
voor het individu dat zich aan steeds 
wisselende situaties moet kunnen 
aanpassen. 

Ter verduidelijking: het geheugenop¬ 
pervlak kiest zelf waar het aandacht 
aan zal schenken, het natuurlijke den¬ 
ken volgt het meest gebruikte pad, het 
logische denken sluit overal wegen af 
volgens het ja/nee principe, wat we 
ook van de tweewaardige computer¬ 
logica kennen. Wiskundig denken ge¬ 
bruikt spelregels in de vorm van axio¬ 
ma’s en stellingen om veranderingen 
te selecteren. 

Dit was een korte introductie van het 
lateraal denken, in de volgende afle¬ 
vering zullen we deze denkwijze ver¬ 
der behandelen. 

A. van Norden 
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per spel? 


Jawel! 

Weer laat Eurosoft, een puur 
hollandse software ontwikkelaar, 
zien dat goede MSX software niet 
duur hoeft te zijn! 

33 goede MSX spellen op 
6 cassettes, 4 diskettes of 
1 compact disk! 


The Games Collectioh 


747 400b Flightsimulator 
Astroblaster 
Bankbuster MSX 2 (*) 
Blow-Up 
Boom 
Booty 
Breaker-Breaker 


| Burgerkill 

Chessplayer MSX 1 
Chesspiayer MSX 2(*) 
- Chopper One 
Discovery 
EagleControl 
Frog 
Guttblaster 
Haunted House 
JetFighter 
Kong 

MissileCommand 
Penguin 
Pharaoh's Revenge 
Pinball Btaster 
Playhouse Strippoker 
Quebert 
Red Dawn 
SAR 
Scentipede 
Space Rescue 
Starbite 
Starbuggy 
Time Rider 
Vortex Raider 


Nu leverbaar bij de betere verkoop 
punten. 


Winterhawk 


rlmarked games need 
128K Vram and 128K ram 


The Games Collectfon 


The Games Collection is a EUROSOFT production, 
«iistributed by: PREMIUM SOFTWARE DISTRIBUTION 
P.0 Box 287,2300 AG Leiden, Holland. 




Premium and Eurosoft are associated 
with the Van Aacken Holding group of companies. 

Copyright Van Aacken Holding BV 1988 



programma’s op CD? 



Jawel! 

Eurosoft presenteert als eerste in de 
wereld een CD met maar liefst 33 
MSX games. Van alles en nog wat, 
van simulatoren tot schaken en van 
strippoker tot arcade! 

En niet alleen 'gouwe ouwe’ spellen, 
ook gloednieuwe! 


Toch is deze nieuwe vinding niet 
duur: de CD met de 33 games kost 
U/ 99,- 


Premium Software Distribution 
Postbus 287,2300 AG Leiden 
Telefoon 071 -225510 


dealer distributie 

Homesoft Benelux 
023-311241 














MfCRO ftOP*Y OISK 
DOVtll 3IÖt 


Met de horloges van SKC maak je in no time de mooiste 
en wildste kleurenkombinaties. Gewoon door bandjes, 
houder of uurwerk uit te wisselen. En dat kan je gauw, 
want bij ieder doosje SKC diskettes zit al zo'n gaaf 
klokje. Gratis en voor niets! 


• ALMERE, H&S03240-39844 • AMERSFOORT, D.K.B. 033-614011 • AMSTER¬ 
DAM, visser 020-343041 • ASSENDELFT, Rison 02987-5095 • COEVORDEN 
Kardol 05240-12159 • DEN BOSCH, Lant, 073-422984 • DOETINCHEM Ratio 
08340-23173 • ENSCHEDE, Schaffrath 053-322688 • GENNEP MAASSTAD 

m 820 P i°8 8 5 8 q 5 5 ‘ • 62 h 4 1 7 P d 0 c»I™, HEM ' «ik 01830-24222 • GOUDA, Compusprint 
01820-18555 • HAZERSWOUDE, W. Prins 01728-7203 • HEEMSTEDE 

N.R.S. 023-287005 • HEERLEN, Sokla 045-724379 • HELMOND CompriCon 
°«2O-33044 * H.l. AMBACHT, Troost 01858-17022 • HILVERSUM Kê 
035-218503 • HOORN. Datifall 02290-37712 • IJLST, Microform OS155-1941 


070 anoaT? . ’m^ToccIm 4 ! 026 ? • LEIDSCHENDAM, Brink Automatisering 
2I?’2? 9214 * maa RSSEN. Rootring 03465-70854 • MAASTRICHT Stegen 
n^c^PJ, * NOORDWIjKERHOUT, C&S 02523-76008 • OUDENBOSCH 
D.S.S. 01652-17199 • OLDEKERK, Masterforms 05940-4965 • PURMEREND 
Marketech 02990-29048/24328 • ROZENBURG, Maycom 01819-18144 • 

1 - A Repr0 010 4331400 Koller & V. Os 010-4118646 To the Point 
079-313600° TERNEUZENl Q utili ‘y 01150-17342 • ZOETERMEER, Prisma 


jMPORTEUR DfWIDENKO IN NQORDWUK 












